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PREFACE 


The general objective of this book is to teach students 

to read System/360 COBOL programs with a high degree of . 
comprehension. Some of the major topics dealt with are: 
the elements of the COBOL language -- reserved words, 
programmer-supplied names, symbols, literals, level 
numbers, and pictures; the organization of COBOL programs, 
and how the divisions of a program are related to each 
other; and the interpretation, in detail, of entries in 
each program division. 


Additional information needed in order to compose 
Original COBOL programs has deliberately been omitted. 
It will be found in other publications of this Series. 
The subject matter has been arranged in this way to give 
the student a chance to see what makes up a complete 
COBOL program, before he is required to write one. The 
Student can concentrate on the meaning and function of 
program entries, without being concerned about their 
formats and alternate options. 


Several other topics are not discussed in this publication; 
for instance, the Report Writer feature, the Sort feature, 
floating-point operations, direct-access devices, and 

SO On. However, care has been taken to teach concepts in 
away that allows such topics to fall right into place 
later, with no contradictions or inconsistencies. 


This programmed instruction textbook is designed to be 
studied in conjunction with the COBOL Program Fundamentals 
reference handbook (Form R29-0206). The reference 
handbook contains technical information, and is kept by 
the student for reference purposes after he completes 

his studies. This textbook gives the student reading 
assignments in the reference handbook, explains the 
concepts that make sense of the technical information, 
and lets the student apply the information to practice 
exercises and problems. In short, the textbook teaches 
the student to find and to apply the information that is 
in the reference handbook. The student learns to look up 
information when he needs it, instead of memorizing it. 
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STUDENT INSTRUCTIONS 


1. This textbook must be used in conjunction with a reference 
handbook, form R29-0206. If you don't have the reference hand- 
book, get one before you go any further. 


2. The general objective toward which you will be studying, and the 
division of information between this textbook and the reference 
handbook, are explained in the Preface of this book. Have you 
read it? 


3. The purpose of this. textbook is to guide and direct your study of 
System/360 COBOL. It is not meant to serve as a reference book - 
that's where the reference handbook comes in. In other words, 
once you have read this textbook, the odds are that you will have 
no further use for it; as a result, it is meant to be used by 
more than one student. The point is: Don't make any marks or 
notes in this book. | 


4, The reference handbook, on the other hand, is yours to keep. If 
you care to make any notes, make them in the reference handbook. 


5. There are ten lessons in this book. In general, the lessons 
consist of reading assignments and questions. You will read 
specified parts of the reference handbook, and then answer 
questions about what you just read, or about something that you 
had previously read. 


6. There may be several reading assignments in a lesson, not just 
one at the beginning. The reading assignments give the major 
titles and subtitles of what you are to read, rather than page 
numbers. The major titles appear in the table of contents in the 
reference handbook. 


7. A lesson may also give you new information to supplement or 
explain what you read in the reference handbook. 


8, Each lesson is broken up into a number of frames, which are 
simply convenient instructional steps. You proceed through the 
lesson one frame -- one step -- at a time. The format of a 
frame usually looks like this (in miniature) : 





First part of frame 
gtves readtng 
asstgnment, other 
instructtonse, new 
information; usually 
asks a questton or 
requtres you to 

take some actton 


econd part of frame 
(not present tn 

some frames) gtves 
correct answer to 
questton asked tn 
first part. 


(Conttnued on next page) 
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9. 


10. 


li. 


12. 


13. 


14. 
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The first part of every frame is ended by a group of three dots. 
If the frame asks you a question, the correct answer is printed 
on the same page, below the three dots. As you study each frame, 
you must hide the correct answer from yourself, so that you will 
feel challenged to come up with your own answer -- and thereby 
learn the subject, instead of just reading words. 


Use an ordinary sheet of paper or a card to hide the correct 
answers. Just make sure that the paper is heavy enough so you 
cannot see through it. (No onion skin or tracing paper allowed!) 


Start each page by putting your "hider sheet" at the top. Then 
slide your sheet down until you just uncover a set of three dots, 
as illustrated below. 


your "hider" eard 
or sheet of paper 





ens 
ON nememiateesd 
ag ggne gee 
ee 


Then read the first part of the frame, and formulate your answer 
to the question or problem it poses. When you have your answer 
clearly in mind, slide the "hider" sheet down to the next set 

of three dots. This will not only reveal the correct answer, but 
also uncover the first part of the next frame. 


correct answer to 
question tin first 
frame 


first part of 
next frame 


Study at your own speed, but don't spend too much time with any 
one frame. Too much concentration on an isolated detail may 
destroy your comprehension of a general concept. (Which means: 
Don't let the trees block your view of the forest.) 


You will find additional instructions, along with helpful 


remarks and the author's opinions, printed in italics in some of 
the frames of the book. 


VII! 
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LESSON 1 


P| If you have ever studied a foretgn language, tt te posstble that 
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somebody challenged you to say something in the language when 

you had barely finished your first lesson! Well, this sort of 
thing happens when you study programming languages too. Although 
people are not ltkely to challenge you to say something in COBOL, 
you may get questions like, "What te COBOL, anyway?" For you to 
say that you're not sure, would sound like a forestry student 
admitting that he ten't sure what a tree ta! In self defense, 
the thing for you to do first te to learn a few general facts 

and tdeas about COBOL. So, our firet lesson is coneerned with 
introductory generalities. 


In your reading, you should pteck up the tnformation that you need 
in order to anewer these two questions in your own words: What 
ts COBOL? What are tts purposes? 


Reading assignment: INTRODUCTION TO COBOL 
Origins 
Aims 
Differences 


All reading assignments are in the referenee handbook that 
aecompantes this textbook. Always complete the reading 
asstgnment before going on to the next frame. The frames that 
follow will ask you to apply what you have read, or will 
supplement your reading with addtttonal information. 


There are several types of frames in this book. Most of them 
have this much tn common: they requtre you to formulate an 
answer mentally. This partteular frame aske you to eritietze 

a statement, based on what you have just read in the reference 
handbook, Your anewer wtll probably be different from the 
printed answer, but tt should mean the same. Do not write your 
answer tn the book. 


What is wrong with this statement: "COBOL was invented by IBM", 


No single person or company can take credit for inventing COBOL. 
IBM participated in the development of COBOL, together with 
several other computer manufacturers and users. 
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optnton, judgment, or fact. In thie frame, you are expected to 
recall a fact from your reading; however, tf you cannot remember 
tt, you may look tt up tn your reference handbook, 


In what year were the original specifications for COBOL drawn up? 


1959 


Frames ltke this one requtre you to think of one or more words 

or numbers that complete the sentence. The length of the blank 
space wtll always be the same, so tt wtll not be a clue to the 

Length of the answer. Do not write your answer tn the book, 


The name “COBOL" is derived from the words : 


COmmon Business Oriented Language 


In thts type of frame, you are gtven a choice of answers, which 
are stacked tn braces. Select the one best answer. 


The name "COBOL" is pronounced KO-BALL. 
In other words, "COBOL" should be pronounced to rhyme with 


noble 
hobble 
snowball 
low bowl 
eee 
snowball 
2 
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In this kind of frame, each choice ts enclosed in brackets. 

Your job ts to select all the correct answers. To do this, you 
must examine every choice, instead of merely looking for a 
correct answer, because more than one of the chotces may be 
correct. Perhaps all of the chotces are correct. Or none of them. 


In an effort to standardize programming, COBOL provides the 


programmer with [a standard program structure] [standard entry 


formats] [standard solutions for business data processing jobs]. 


a standard program structure AND standard entry formats 


But not standard soluttons to data processing jobs. Problem solving 


ts the programmer's job; COBOL ts a language in which he can express 
hts solutions, 


You can think of "Common Business Oriented Language" as COBOL's 
official title. Unfortunately, each one of the words of the 
title can possibly be taken in various ways, so they require a 
little explaining. 


The title is intended to convey the basic purpose of COBOL: 
to be one language for all computers -- a standard language for 
programming business problems. 


ordinary 


COBOL is "common" in that it is  { Well-known 
conversational 


shared 
eee 


shared (shared by all computers) 
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| 8 Although COBOL is common to all computers, you could not take a 
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COBOL program prepared for one computer (say, an IBM 1410) and 


drop it into the card reader of a different computer (say, an IBM 


System/360). You would not have to write a new program, starting 
from scratch, but you would have to make some changes. 


It would be a mistake, then, to say that COBOL is identical for 
all computers. But it would be equally wrong to exaggerate the 
differences in COBOL for different computers. What it amounts 
to, is that there are several versions of a common language, 
much like dialects of a spoken language. 


Which statement best sums up this idea? 


Several different programming languages bear the name "COBOL". 
All COBOL systems except System/360 COBOL are alike. 

The similarities of COBOL systems far exceed their differences. 
It is a mistake to use the name "COBOL" for different languages. 


The similarities of COBOL systems far exceed their differences. 


The words "business oriented" also require a little explaining. 
They have three implications: first, that COBOL is business 
procedure oriented, rather than machine oriented; second, that 
COBOL is particularly applicable to business data processing 
problems, as opposed to scientific problems; and third, that 
COBOL is a language that businessmen can understand. 


Because COBOL is not machine oriented, the COBOL programmer 
does not need to know 


[what the operation code for adding binary numbers is] 
(what data items make up his input records] 

[what the general registers are used for} 

[whether the output data is to be punched, or written on 
magnetic tape]. 


what the operation code for adding binary numbers is AND what 
the general registers are used for 


The COBOL programmer does need to know the layout of data 
records, and the media on which they are recorded. 
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Since it is machine independent to a large degree, COBOL 


a outdated 


be ae ce by new developments in computer technology. 


is not outdated 


Consider this statement: "COBOL must be obsolete, because there 
have been revolutionary changes in computers since 1959". There 
are at least a couple of good reasons why this statement is false. 
One is the point made in the previous frame. Another reason why 
COBOL is right up-to-date is that the COBOL specifications have 
been several times since 1959. 


revised and improved 


We say that COBOL is oriented to business procedures because a 
COBOL program consists of descriptions of (1) the procedures 
according to which data files are to be processed, (2) what the 
contents of the data files are, and (3) what input-output devices 
the data files are to be assigned to. 


You have undoubtedly seen definitions of "computer program" that 
go something like this: A program is a series of machine 
instructions that direct the computer to perform a sequence of 
operations. Would you say that this definition applies to 

COBOL programs? 


No. A COBOL program is a “program” in a broader sense -- it is 
a solution for a problem. (Ultimately, to be sure, a series of 
machine instructions will be compiled from the COBOL program.) 
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particularly applicable to business data processing problems, 

as opposed to scientific problems. Here I am paying lip service 
to that unfortunately vague line between business and scientific 
computer applications. Tasks like preparing reports and updating 
files fall into the business category, to which COBOL is oriented. 
Tasks that involve trigonometric functions (sines, cosines, etc.) 
or Boolean algebra (logical ands, logical ors, etc.) are examples 
of tasks that fall into the scientific category. 


Decide which category each of these tasks belongs to: 


i Calculating logarithms 
2. Sorting records 


Calculating logarithms is a task that most people put into the 
scientific category; sorting records is in the business category. 


For the most part, business data processing involves moving data 
around -- putting data in and out, rearranging it, changing its 
appearance, comparing items of data, locating desired items, etc. 
Arithmetic operations are involved, but they are generally limited 
to adding, subtracting, multiplying, dividing, and occasionally 
exponentiating (raising a number to a power, or finding a root of 
a number). COBOL is designed for these kinds of operations. 


Jobs that involve complicated mathematics are harder to program 
in COBOL. As a general rule, such tasks are in the scientific 
category. | 


Categorize each of these tasks as business or scientific tasks: 


Ls Computing a hyperbolic tangent 
a Searching a table for a particular data item 
ce Calculating the area of a circle | 


The hyperbolic function involves mathematics that seems 
complicated to me, so I would call it scientific. Searching a 
table is definitely a business task. The formula for the area 
of a circle (nr?) really calls for two simple multiplications 
(3.1416 x r x xr), which puts it into the business category. 


Nottce that we begin to get into a gray area here. Ftnding the 
area of a ectrele ts simple to program in COBOL, whtle finding 
the area under a hyperbola tis not. 
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can understand COBOL programs after a short introduction to the 
language, whether or not he is a programmer. 


A sample COBOL sentence is printed below. Notice that it is 


practically self-explanatory. It illustrates that the COBOL 
language resembles the language. 


wl Hei ifr a cll ab ofan TTT 
PT elriviitic! frlotriaiul-leleliiclel.| | 






English 


Computers can't understand English, so what's the point of 
writing programs in English? 


Programs written in English serve to communicate data processing 
procedures to people, in addition to serving as source programs 
for computers. 


When a programmer writes a program in machine language or in an 
abstract symbolic language, he prepares a detailed explanation 
of what the program does and how the program does it. This 
supplementary write-up, called "documentation" of the program, 
often takes as much time to prepare as it took to write the 
program itself. 


Since COBOL programs are similar to English, they 


require more documentation than other programs 
require just as much documentation 

require less documentation | 

require no documentation at all 


eco 
require less documentation 
Although COBOL programs are sometimes referred to as 


"self-documenting", some documentation is almost always needed -- 
posstbly just remarks and notes added to the program. 
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There ts danger of gotng overboard on the tdea that COBOL is 
Like English. If COBOL were completely self-explanatory, there 
would be no potnt in studying a course on how to read COBOL, 
would there? You have already seen one sample COBOL entry that 
was an eastly readable sentence. In order to get a balanced 
point of view, let's look at some entrtes that are not quite so 
readable: : | 


i Certain elements of the COBOL language have symbolic 
Meanings as tllustrated by the 03 and the 9(6)V99 found 
in the entry below. 





2. In some cases, the words are easy enough to read, but 
thetr meaning ts not obvious. For instance, the words 
below mean "the data tn thte ttem is reeorded tn btnary 
code" -~- but a person must have studied System/360 
COBOL tn order to know that. 





3. It ts also posstble for a programmer to mtsuse the 
language, by writing entrtes that are hard to understand. 
Perhaps the example below is a trifle extreme, but it 
will serve to show what happens when programmers use 
abbrevtattonse that are meaningful only to themselves, 

a@ common error. 





Even though a COBOL program ts not exactly the same as a story 
wrttten tn English, at least COBOL makes an attempt to 
approximate English. And one thing is certain: writing 
programs in COBOL ts a far cry from writing programs in the 
aetual language of the computer. 


Of course, the tdea that programs need not be written tn machine 
language ts one of the matin tdeas behind programming systems tn 
general. Although those tdeas are not new to you, tt wtll be 
worth your while to revtew some of the familtar terms -- and to 
see how they apply to the COBOL system in parttcular., 


Reading assignment: COBOL PROGRAMMING SYSTEM TERMS 
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The ultimate objective of using the COBOL system is to produce 


Object programs are produced by 


correct, efficient machine language programs, which are 
called . 


@ee0@ 
object programs 


programmers 
computers : 
eee 


computers 


COBOL programs are Sabjace cel 
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object programs 
eee 


source programs 


Source programs are produced bY [Eomputers 


programmers 


Can a COBOL program be executed by a computer? 


No, because it is not in machine language. 


Every programming system includes a processor -- a program that 
directs the computer to produce an object program from a source 
program. In the COBOL system, the processor is called the ‘ 


COBOL compiler 
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COBOL program 
COBOL compiler 
source program 
object program 


ec0e 
object program 


Make sure that you have the relattonshtp between these programs 
straight. An object program ts ecomptled from a COBOL program. 

A COBOL program is a source program written tn COBOL. The COBOL 
comptler ts executed during comptlatton, to eause an object 
program to be compiled. 


The System/360 used to compile an object program is the 


object computer | 
source computer 


source computer 


The object computer is a System/360 that is used to [compile] 
[execute] the object program. 


execute ONLY 


For a given System/360 COBOL program, the source computer and 
the object computer 


[may be the same System/360] 
[must be the same System/360] 
[may be different System/360s] 
{must be different System/360s]. 


may be the same System/360 OR may be different System/360s 


Thts ts strictly a matter of hardware configurations. 

A System/360 may be used both as the source computer and as the 
object computer provided that it contatns the hardware required 
to execute the COBOL compiler and the object program. On the 
other hand, a System/360 Model 30 might be used to compile a 
program, while a System/360 Model 50 mtght be used to run the job. 
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so. There is nothing to be gained by spending any more ttme on 
a subject that you are already familiar wtth. However, you 
should feel fatrly confident of your knowledge of these terms 
before you continue. You may find tt useful to read the 
definittons in the reference handbook once again. Inetdentally, 
tf you didn't recognize the terms, or tf our dtscussion of them 
seemed like a lot of gtbbertsh, then that ts a good tndtcatton 
that you do not have the baekground you need to put the rest of 
thts eourse to good use; tn that case, you ought to put thts 
course astde for now, and study "Basic Computer Systems 
Prinetples" instead. 
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LESSON 2 


So far, we have talked about COBOL in general terme. Now, let's 
get down to specifies, and find out what elements 'make up the 
COBOL language. JI use the term "element" for the baste units 
that are found in COBOL programs: the various kinds of words, 
numbers, and symbols. "Element" te not an "offietal"” term, but 
tt wtll do the job in the absence of a better term. 


Find out how many elements there are, what they are called, and 
where they come from. 


Reading assignment: LANGUAGE ELEMENTS 
Examples of elements 


How many elements are there? 


eee 
Six 
See how many of the elements you can name. 
eee 


reserved words, programmer-supplied names, symbols, literals, 
level numbers, pictures 


Which elements are composed by programmers, following certain 
rules? 


programmer-supplied names, literals, and pictures 


Which elements are selected from fixed sets as they are needed? 


reserved words, symbols, and level numbers 
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At this point, you wtll learn detailed information and rules 
about each element in turn. Don't waste your time memorizing 
the rules; after all, you can always look them up when you need 
them. The tmportant thing ts to be aware of the areas tn which 
rules extet, and how much latttude they give the programmers, 
or how severely they Limit him. 


Reading assignment: RESERVED WORDS 
Types of reserved words 
Figurative constants 
Complete list of reserved words 
for System/360 COBOL 


Reserved words are pace by programmers. 
composed 


selected 


Examine the reserved word list. Notice that most of the 
reserved words are simple English words, made up of letters only. 
A few of the words contain digits. Some contain hyphens. 


Spaces pie found in some of the words. 
are not 


are not 


Spaces, you wtll later learn, are used to separate words and 
other elements in entries, so they are never found wtthin words. 


The reserved words are an inherent part of the COBOL compiler's 
vocabulary, but of course, the words must be spelled exactly 
right in order for the compiler to recognize them. Exact 
spelling includes hyphens, too. 


Under this rule, is WORKING STORAGE equivalent to 
WORKING-STORAGE? 


No, it is not. 
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No substitutions are allowed in the reserved word list. 
Webster's Dictionary may prefer "numerical", but COBOL insists 
On NUMERIC. 


Refer to your reserved word list to pick the correct spelling in 
each pair of words below: 


1. ALPHABETIC or ALPHABETICAL? 

2. PROGRAM-IDENTIFICATION or PROGRAM-ID? 
36 IDENTIFICATION or ID? 

4. ZEROS or ZEROES? 


l. ALPHABETIC 

2- PROGRAM-ID 

36 IDENTIFICATION 

4. Both ZEROS and ZEROES are correct. 


You can see that there ts a certain arbitrariness about the list 
of reserved words. COBOL programmers generally keep the ltst 
right at thetr elbows when they write a program. 


You will see many of the reserved words as you proceed through 
this course, in the context of the entries in whitch they are used. 
Therefore, we wtll not go down the ltst to discuss what each word 
ts used for. However, one type of reserved word, the figurative 
constant, has been singled out for a little extra attentton in 

the reference handbook. This hae been done because the 
figurattve constants ZERO and SPACE are found in many dtfferent 
entries. 


"Figurative constant" is a mouthful to say, but it is a 
reasonable term, since words like ZERO stand for constant data, 
rather than actually being the data. In other words, they are 
constants ina sense, rather than a literal sense. 


figurative 


The reference handbook discusses the ftgurative constants ZERO 
and SPACE, and thetr respective plural forme. The other 
figurative constants are HIGH-VALUE, LOW-VALUE, QUOTE and ALL 
(plus thetr plurals); these ftgurattve constants have 
relatively spectaltsed uses, which you wtll learn in due time. 


15 
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Now let's turn to the subject of programmer-supplied names. 
"Programmer-supplied names" -- there ts another mouthful for 
youl This term te useful to us, though, because we must 
distinguish names that are composed by programmers from names 
that are reserved words. We will give some attention first to 
the rules that govern the formatton of programmer-supplted 
names; then we will see how programmer-supplied names and 
reserved words are used together. 


Reading assignment: PROGRAMMER-SUPPLIED NAMES 
Rules governing programmer-supplied names 
Examples of programmer-supplied names in 
an entry 


Reserved words have preassigned meanings. By contrast, 
programmer-supplied names must be within the program in 
which they are used. 


defined 


Programmers supply names for ; 


data items, data conditions, and procedures 


According to the rules, programmers may compose names like 
PAYROLL, ACCOUNTS-RECEIVABLE, or 265. PAYROLL and ACCOUNTS= 
RECEIVABLE might be names of data items, data conditions, or 
procedures; however, 265 could only be the name of a ‘é 


procedure (because names of data items and data conditions must 
contain at least one letter, while procedure names can be 
composed entirely of digits) 


Any letter or digit may be used in a name, but the only special 
character allowed is the . 


hyphen 
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A hyphen is not allowed to be [the first character] 
[the last character] of a name. 


NEITHER the first character NOR the last character may be a 
hyphen. 


The word CODE is not an acceptable programmer=supplied name. 
Why not? 


CODE is a reserved word, and therefore cannot be used as a 
programmer-supplied name. It violates the rule that a 
programmer-supplied name must not be spelled exactly the same 
as a reserved word. 


Is RECORD-CODE an acceptable programmer-supplied name? 


Yes. Even though it contains two reserved words, RECORD and 
CODE, they have been joined by a hyphen to form a new word whose 
spelling is different from either of these words. 


Is the following statement true or false? 90-DAY-ACCOUNT is an 
illegal name for a data item because the first character of a 
name must be a letter. 


False. The rule states that names of data items must contain at 
least one letter, but does not specify that the first character 
must be a Letter. 90-DAY-ACCOUNT is a perfectly legal name. 
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Check your understanding of the rules for programmer-supplied 
names. For each name below, decide what rule, if any, is being 
violated. 


he 5 

. SYSTEM/ 360 

° OVERFLOW 

° ECONOMIC~-ORDER-QUANTITY-COMPUTATION 
. ENTRY-PROCESS 

° HEADING LINE 

. F.I.C.A. 


“ISA OT Rm WW NO 


: O.K. (acceptable for procedures, though not for data items 
or conditions). 

Contains an illegal special character (SYSTEM-360 would 
be correct). 

Not allowed because OVERFLOW is a reserved word. 
Exceeds 30 characters. 

O.K. 

No spaces are allowed. 

Contains illegal special characters (FICA or F-I-C-A) 
would be all right, but F-I-C-A- would violate still 
another rule). 


“JO O1 & WW N — 


You can see that the rules for programmer-supplted names are not 
espectally restrictive. They permit programmers to invent just 
about any name under the sun. In fact, they gtve the programmer 
so much freedom to tnvent names, that he must learn to hold back 
his tnventtve gentus. Remember that one of the atmse of COBOL ts 
to produce programs that read ltke Engltsh, which mean that the 
programmer should etther use Engltsh words for names (SALARY, 
DEDUCTIONS, ete.), or compose names from two or more English 
words, connecting them with hyphens (SOCIAL-SECURITY, FEDERAL- 
INCOME-TAX, ete.). Stnee names ean be 380 characters tong, there 
ts no need to abbrevtate or to make up code names. 
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But suppose that a programmer decides to use a name like 20X-3. 
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First, is ZQX-3 a legal name (does it violate any rules)? 
Second, is it a good name? 


ZQX-3 is a legal name, inasmuch as it does not violate any rules. 


The answer to the second question ts a matter of optnton. I hope 
you agree that meaningless names have no place tn a COBOL program 
because they defeat the purpose of making programs easy to read 
and understand. By thts standard, Z2QX-3 ts a good name only tf tt 
ts readily understood by everyone who has to read the program. 

It ts a bad name tf tt makes sense only to the programmer. 


For instanee, tf the program has something to do wtth the 
manufaeture of self-starting charcoal briquets, and ZQX-3 ts the 
secret new ingredtent that makes light flutd obsolete, then 
ZQX-3 ts the name to use. But tf the programmer decided to use 
ZQX-3 in place of MINIMUM-BALANCE because tt ts shorter, or 
beeause he onee met a eab driver named Zarathustra Q. Xerxes III, 
then tt t8 a bad name. 


Reserved words and programmer-supplied names together account for 
nearly all of every COBOL program. The reserved words may be 
thought of as forming the skeleton, while the programmer-supplied 
names are the meat of most program entries. To get the idea, 
pick out the reserved words (with the aid of the reserved word 
list) and the programmer-supplied names in the entry below. 


Tall! lolulanit] yl-lolw-lolrbblele! rol ‘sitlolclk/-lelalial 






reserved words— 


@p0)(quanTi TY -ON-ORDER)(TO)(STOCK-BALANCE. 


\ : 
programmer-supplted names 
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Pick out the reserved words and programmer-supplied names in the 
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entry below. Notice that this entry has the same framework of 
reserved words as the entry in the preceding frame. 


aloo Ielrlols|s| trol viele trol-lairleeirolsis!.[ | TTT TTT] 





reserved words 


programmer-supplted names 


Here is a slightly longer program entry, with a considerably 
different ratio of reserved words to programmer-supplied names. 
Using the reserved word list, find out which words in the entry 
are reserved words, and which are programmer-supplied names. 


Flo | tlalvikbolulul-lriilel TTT TT TTT TIT TTT TTT 
||| walle! irlelciolriols|_larle! [sitjaivplajrlol | | tt || | 
{|| iplalrial [R[elcloiR|o| |1[s| ejMPiLiolyieje|-|miaisirjeir|.| | | | | 






Reserved words Programmer-supplied names 


FD PAYROLL-NAME 
LABEL EMPLOYEE-MASTER 
RECORDS 

ARE 

STANDARD 

DATA 

RECORD 

IS 


In thts example, the programmer has supplted the names of a data 
file and a data record. You have read that names for data titems, 
data condttions, and procedures are supplted by programmers; 

for the moment, you can think of the file and the record as 

types of data ttems. 
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58 You can see that two of the main tasks involved in COBOL 
programming are to select the reserved words required for the 
framework of entries, and to supply names to fill in the frame- 
work -~ especially names for data items. You know that it is up 
to the programmers to define the names that he uses. 

You also know that there is an exception to this general rule; 
namely, that there are a few peoteo ere data items with reserved 
names, which are called 


figurative constants 


EE} the most commonly used figurative constants are 


ZERO (ZEROS, ZEROES) and SPACE (SPACES) 





In the sample entries that you have seen, you have undoubtedly 
noticed some symbols -- specifically, pertods and commas. These 
are only two of a large number of symbols that play an tmportant 
role tn COBOL programs. The typtcal proceedure entries below 
tllustrate a few more of the symbols used tn COBOL. 


CT Molplelnl Trivllulr/ | IMalsirlelel,| [chiain[ole's|:[ foultelulr| | | 
| ETT NIEW- MAST ER. | : PEPE Eee 













Coot Meet Mot Wel echaasree CT at PEEL LLL 


Learn what groups the symbols are dtvtded into, and get a general 
tdea of what symbols are tn each group. Look for symbols that 
appear tn more than one of the groups. 


Reading assignment: SYMBOLS 
Punctuation symbols 
Arithmetic symbols 
Condition symbols 
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In the reference handbook, symbols are defined as "special 
characters which, , have particular meanings for the 
compiler". 


individually 


Some of the special characters which are used as symbols also 
appear in other elements, but there they are not used 
individually, and there also, they have different meanings. 

For example, a hyphen and a minus sign are the same character; 
however, they are used differently and obviously have different 
Meanings. A hyphen is found embedded between other characters in 
reserved words and programmer-supplied names, where it has no 
special meaning, and serves only to improve readability. A minus 
sign stands apart in an arithmetic formula, with spaces before 
and after it,and signifies subtraction. 


Accordingly, the correct way to read the formula for computing 
CURVE in the entry below is 


RANGE-ARCH minus RADIUS 
RANGE minus ARCH-RADIUS 


} RANGE minus ARCH minus 4 





RANGE minus ARCH-RADIUS 


COBOL symbols fall into three groups: symbols, 
symbols, and symbols. 


punctuation, arithmetic, condition 
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Punctuation symbols make program entries more readable. In most 
cases, the use of punctuation marks is left up to the programmer. 
At his discretion, he may use commas to separate a series of 
operands or clauses. Or he may use semicolons to separate a 
series of clauses, in place of commas. 


Certain punctuation is mandatory, though. A symbol that is 


required in every program entry is the that terminates the 
entry. 

eee 
period 


In this course, the term "entry" ts used in the prectse sense of 
a series of language elements, the last of whitch ts a pertod. 
That ts to say, an "entry" will not be spoken of as just 
something entered on a coding sheet. This ts discussed further 
tn a later lesson. 


Arithmetic symbols allow the COBOL programmer to write formulas 
in mathematical notation. There are, then, two general ways of 
doing arithmetic in COBOL: narratives _and formulas. The 
difference between the two can easily be shown by an example; 
these two entries mean the same in COBOL: 


TTT talolol Irlelelu Llaik],| lolveleirli Me! [ei[vliNel [elrols's|.] | [|| 
|TV iclowplulrle| clrlols|s| =I rlelclululalr) G1 lovleliiiiwel. TT TTT 










In this example, the entries are exactly the same length, but 
you might guess that, in most cases, 


: narrative is shorter than the equivalent ees 
a formula is shorter than the equivalent narrative 


a formula is shorter than the equivalent narrative 
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Like arithmetic symbols, condition symbols are shorthand 
equivalents of written narratives. The two entries below have 
identical meanings. 








CCC alse RE UBERLISCLESSLAHARLLOLITL 
LT Wolelria c-ivjuMiplele}.| Wirlitrie] MalsirieiRtIrle|clolr 


This example shows that the symbol < is equivalent to what 
reserved words? 






von 





IS LESS THAN 


Certain symbols appear in more than one group of symbols. For 
instance, the equal sign is both an arithmetic symbol and a 
condition symbol. In the first entry below, the equal sign is 
used as a condition symbol; here it calls for two items to be 
compared to see if they are equal. In the second entry, it is 
noel as an arithmetic symbol; there it causes the data named at 
the left of the equal sign to be made equal to the result of the 
computation -- that is, it calls for the result to be moved into 
that data item. 


TTT ll Tefal lainicle! Tt iv inf imu .[ isiol_frol Wali Nel. iy 








Which statement best sums up this idea? 


An equal sign never has exactly the same meaning twice in 
succession. 

No matter what they mean, all equal signs look alike to the 
untrained eye. 

Equal signs are unpredictable, but the compiler can usually 
figure them out. 

Equal signs in arithmetic and conditional entries have 
different meanings. 

All equal signs are created equal, but some are more equal 
than others. 


Equal signs in arithmetic and conditional entries have different 


meanings. 
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LESSON 3 


By this time, you should feel quite at ease with the vartous 
sample entrtes you have been looking at. You should be able to 
tdenttfy the reserved words and the programmer-supplied names tin 
any entry, and you should be able to explain the difference 
between those elements. You also have a general tdea of the 
kinds of symbols that you will run across in COBOL programs. 


In thts lesson, we will discuss the three remaining elements -- 
Literals, level numbers, and ptctures. In contrast with the 
first three elements you have studied, these elements have 
comparatively spectalized purposes, and do not occur as 
frequently in a program. However, tt ts every bit as tmportant 
for you to know how these elements are used, and to be able to 
recognize them in program entries. 


You wtll etudy literals first. Learn what a literal te, and what 
the two matin types of literals are. Determine how you ean tell 
the difference between the two types. 


Reading assignment: LITERALS 
Rules governing numeric literals 
An example of a numeric literal in an entry 
Rules governing non-numeric literals 
An example of a non-numeric literal 
in an entry 


eee 
69 A literal is an actual used in a program. 
ee0e 
value 
70° The two main types of literals are . 
ee0e 
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numeric and non-numeric 


System/360 COBOL permite the use of a third type of literal, the 
floating-point literal, whitch we wtll not deal wtth tin thts book. 


25 


System/360 COBOL COBOL Program Fundamentals 


(3/66) 


Pick out the literal in the entry below. What type of literal 
1s it? 





[|| tabio! [1] [To INUMBIERHO.F 


The digit 1 in this entry is a numeric literal. 


Which characters are not permitted in numeric literals? 


Letters and most special characters are not permitted. The only 
special characters permitted are a plus or minus sign as the 
leftmost character, and a decimal point as any character except 
the rightmost. 


The correct way to write "minus one-half" as a numeric literal is 
-l/2 
-.05 e 
075 


-.5 


One of the rules for numeric literals is that whole numbers are 
written without decimal points. A decimal point may not be the 
rightmost character of the literal. The entry below appears to 
violate this rule, yet it is a correct entry. Can you explain 
this discrepancy? 


MPbiriel [lola] S| we venir! ml sol. [TTT TTT TTT 





The last character is not a decimal point; it is the period that 
ends the entry. This becomes clear when the entry is rewritten 
as COMPUTE LOAD = 30 * WEIGHT. 


Thts ts another example of a echaracter having different meanings 
tn dtfferent contexts. However, thts should not seem unreasonable 
to you, tnasmuch as the same character ts used in the same two 
ways tn everyday Engitsh., 
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Non-numeric literals are easily recognized, because they are 
enclosed in _ ° 


eee 
quotation marks 


Notice that we use the single quotation mark (') and not the 
double quotation mark ("). Single and double quotatton marks 
are distinctly dtfferent spectal characters, with different data 
codes tn System/360. Non-numerte ltterals tn System/360 COBOL 
must be enclosed by stngle quotation marks, one before and one 
after the literal. 


Don't be misled by the name “non-numeric". Non-numeric literals 
may contain digits, and they may be numbers. Which of the 
literals in this list are valid non-numeric literals? 


‘JANUARY, 1966' 
'NOT IN FILE! 
‘so’ 

i 


These are all valid non-numeric literals. 


Suppose that all of the items in the list below are literals. 
Which are numeric literals and which are non-numeric literals? 


50 
30565 
i= 5.03" 
3.1416 
"TOTAL ' 


The numeric literals are 50, 30565, and 3.1416. The non-numeric 
literals are '-5.03' and 'TOTAL'. 


I have reprinted the quotatton marks here because they are 
essential to the tdentifteatton of the type of ltteral. 
Remember, though, that the quotation marks merely enclose a 
non-numerte literal, and are not part of the literal. 
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Which character is not permitted in non-numeric literals? 


The quotation mark is not permitted, because it signifies "end of 
literal" to the compiler. 


In non-numeric literals, you can write anything you want between 
the quotation marks, as long as you don't throw in another 
quotation mark. You might, for example, use a non-numeric 
literal for the message 'NUMERIC SECURITY CONTROL IS OMITTED', 
even though every word in this message is a word. 


reserved 


Can the last character of a non-numeric literal be a decimal 
point, for example, '$4500.'? 


Yes 


From time to ttme, I have menttoned that programmers must define 
the names that they use in programs. To define the name of a 
data ttem, the programmer merely tneludes the name in an ttem 
desertptton entry. Level numbers and pictures are also found tin 
these ttem descrtptton entries. The subject of ttem description 
entries will be explored in depth in a later lesson, but we will 
touch on it briefly at this point. The thing for you to learn 
now ts how to recognize level numbers and pictures in a program. 


Reading assignment: LEVEL NUMBERS 
Examples of level numbers in entries 
PICTURES 
Examples of pictures in entries 


EP3 aA number that designates the level of a data item, in relation 
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to other data items, is called a ‘ 


level number 
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Level numbers are found in entries that assign to data items 
and data values. 


names 


The numbers 01 through 49, 77, and 88 may be used as level 
numbers. Level numbers 01 through 49 are used for data items 
that form i.e 


records 


Level number 77 is used for items that are neither records nor 
part of records. Such items are called . 


©e0@ 
independent items 
Level number 88 is used to assign names to that data items 
may assume. 

eee 


values 


There are three elements in this entry. The last element, as 


always, 1s a punctuation symbol -- the period that indicates the 
end of an entry. The first element, Ol, is a , while 
PARTS-CATALOG-ITEM is a ° 





level number 
programmer-supplied name 
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As in every entry that contains a level number, the level number 
is the _ element in this entry. 





first 


A string of characters with special meanings that describes 
certain characteristics of a data item is called a 


picture 


EX} A picture is easy to recognize in a program because it is 
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preceded by the reserved word ° 


PICTURE (or PICTURE IS) 


PICTURE 99 
The picture in this entry is PICTURE é 


99 





99 


The reserved word PICTURE merely stgnals that 99 ts a pteture, 
just as on a stgn that reads "SPEED LIMIT 50", 50 ts the speed 
Limit and the words that precede tt are there merely to 
distitngutsh the number from other numbers on stgns along the 
road. The two elements PICTURE 99 together are called a 
"oteture elause". The clause might also have been written as 
PICTURE IS 99. 
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Pictures present us with the interesting situation of sometimes 
having an element within an element, since pictures may contain 
numeric literals. These literals must be unsigned whole numbers, 
and are easy to spot because they must be enclosed in : 


eco 
parentheses 
The picture in the entry below is the abbreviated way of writing 
56 Xs. Aside from the fact that a programmer would be out of his 


mind if he didn't write xX(56) instead of 56 Xs, it would be 
illegal to write a string of 56 Xs. Why? 


LETT toll Tei 





A picture must not be over 30 characters long. 


The pteture X(56) tis only five characters long, even though tt 
represents 56 Xs. 


EYE the literals help to make the picture more readable. You see, 
one of the things that a person might want to know when he ts 
checking out, debugging, or analyzing a program, ts just how 
often a pteture character of a certain kind ts repeated. He 
might mtscount the repetittons tf the ptcture were 9999999999, 
white 9(10) practically eliminates the possibility of a mistake. 


The number in parentheses indicates the number of times the 
picture character occurs without interruption by some other 
character. Thus, the correct abbreviation of S999999V99999 is 

SV9 (11) 

S9(11)V 

9(11)SV : 

S9 (6) V9 (5) 

eco 


S9(6)V9(5) (The character V interrupts to form two strings of 9s.) 
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Pictures are found only in entries that begin with level numbers, 
as the first entry below illustrates. However, as the second 
example illustrates, an entry with a level number 


must always be written with a picture 


jase not necessarily contain a picture 
is not complete if it lacks a picture 







02 REDUCTION-FACTOR),PLCTURE, 1S) 9.1 
ti || lulsla Plultia BERGE 


does not necessarily contain a picture 


You wtll learn much more about ptetures in a later lesson, so 
don't be concerned about not knowing what the Xs and 9s and 
other pteture characters actually mean. However, you shauld now 
be aware that ptetures appear in some item description entries, 
and that they play a role in the process of defining data tteme. 
And you should be able to recognize a picture when you see one. 


You have now studied all six COBOL language elements. You will 
find these elements in all COBOL entries, in all COBOL programs. 
Knowledge of the elements has little value in and of itself, 
though -- unless you can recognize each element when you see it 
in a program. 


To make the task a little harder, some of the elements may look 
alike. For instance, the number 99 could be a [reserved word] 
[programmer-supplied name] [literal] [level number] [picture]. 


programmer-supplied name OR literal OR picture 


The number 99 might be the name of a procedure. It ts also a 
valid literal or picture. It te not a reserved word, stnce tit 
does not appear on the reserved word list. And itt ts nota 
level number, because itt ts not a number between 01 and 49; 
77; or 88, 
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98 The meaning of a number in a COBOL program is determined by the 
context in which it is used. It is possible for the same number 
to be used in several different ways within one program. 


Applying this general rule to a specific case, you can conclude 
that the number 25 


cannot be used as a literal because it is reserved for use 
as a level number 

can be used as a literal even though it is also used as a 
level number 

can be used as a literal only if it has not previously been 
used as a level number 


can be used as a literal even though it is also used as a level 
number 


EX} often it is fairly easy to identify an element. For example, 
the number 999 in the entry below must be a because ;: 





picture, because it is preceded by the word PICTURE 





The task isn't always as easy as it was in the previous example, 
but it is usually possible to make a positive identification 
based on the rules that you are already familiar with. See how 
well you do in the following cases. 





In this entry, 15 is a because ‘ 
LT Tall | olalrie-lole He lalsit|-lplaivmelnit],| lel icirlulrlel lolilely[. | | 
ee0@ 


level number because it is the first element of the entry and is 
followed by a programmer-supplied name 
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In this entry, 65 is a because : 





non-numeric literal because it is enclosed in quotation marks 


The rules for identtfyitng ptetures, level numbers, non-numerte 
titterals, and reserved words are fairly stmple. And you ean 
generally identify other elements by a process of elimination. 
If, for instance, you come across a name that contains letters, 
and tt ts netther a reserved word nor a non-numeric ltteral, then 
tt must be a programmer-supplted name. Stmilarly, tf you find a 
number that te not a level number, not a picture, and not a 
non-numeric literal, then tt must be etther a numerte literal or 
the programmer-supplied name of a procedure -- and the context 
tn which you find tt wtll generally tell you whether the number 
ts a literal or a procedure name. 


In the entry below, you can determine that FD is definitely 
a »- Also, you can figure out that 32 must be a : 





HS TE Se eee ORD 


reserved word; numeric literal 


You should have tidenttfted FD eastly and posttively witth the aid 
of the reserved word list. And you should have figured out that 
$2 ts a literal from the sense of the entry, which says that a 
block in the tnventory file actually -- literally -- contains 

32 records. 


In certain entries, such ase the one tn thie frame, ltterale are 
required to be whole numbers, and to have no sign. You have 
already seen such ltterale tn ptetures. You wtll find that these 
unstgned whole numbers are ecalled "tntegere" tn COBOL manuals. 
For the present time, the tmportant thing for you to realize ts 
that the values of these numbers are taken literally by the 
compiler, so we will call them all "literals". 
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One of the number in this entry is a procedure name, and one is 
a literal. Which is which? 





ee0e 
The procedure name is 582. The literal is 607. 


Notice that the name 582 reveals nothing about the processing 

done in that procedure. This entry would have meant more to the 
reader: IF AREA-CODE = 607, GO TO COMPUTE-TOLL. This tllustrates 
why English words are usually preferred to numbers so far as 

names are coneerned. 


eee In the next four frames, identify all of the elements in each 
entry. 





reserved worde punetuatton symbol 


} 
SUBTRACT 1 FROM (LOOP—-COUNT). 


numeric programmer-supplied 
literal name 





-punetuatton symbols 


eae me 
DISPLAY 'QNITIATE ERROR PROCEDURE 3)’ 


UPON CONSOLE. ; 
A non-numeric 


reserved” punetuatton ttteral 
words— symbol 
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TTT ioel TaveriasleHclolsh], | telicrullel sziziz) iz TTT 





level number punctuation symbols 


O02 AVERAGE-COST), lie $ZZ2Z2.ZZ 


programmer-supplied reserved 
name word pteture 


Md [riz] | iskiilPl-frloHclwiaiwniel-fal,| lplilciriulrle! x[,] Malle! | 


punetuatton ym TE 
77 (SKI P-TO-CHANNEL~-2,) PICTURE XY VALUE ‘2°! 
L 


set number programmer-supplied — icoealle 








name words 


piteture 


ER rhe information you have learned about the six COBOL elemente is, 
of course, not an end in ttself. Rather, tt provides you with a 
foundation of terminology, and with the ability to recognize the 
elements tn programs. The elements wtll come up agatn and again 
itn future lessons; whenever a reference ts made to an element, 
and you are not quite sure of the facts about tt, make a potnt 
of looking back at the reference handbook. By repeatedly 
Looking up facte when you need them, you will soltdify your 
knowledge of them; tn particular, you wtll see much more clearly 
how new facts relate to facets you have previously studied. 
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1. 


Ze 


A t 
® 


Which elements are selected by the programmer from 
fixed sets? 


Which elements are composed by the programmer? 


reserved words, symbols, level numbers 
programmer-supplied names, literals, pictures 


One of the major restrictions imposed on elements composed by 
the programmer is their length. See if you can recall the 
maximum length of each of these elements: 


1. 
2s 
3. 
4. 


programmer-supplied names 
non-numeric literals 
numeric literals 


pictures 
0ee@ 
30 characters 
120 characters 
18 digits 
30 characters 
37 
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LESSON 4 


In lesson 1, you learned that standardized programming ts one of 
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the aime of the COBOL system. To this end, the system provides 
standard language elements, standard entry formats, anda 
standard program structure. Lessons 2 and 3 econeerned themselves 
with the COBOL language elements. In this lesson, we will turn 
to the COBOL program structure. As in the preceding lessons, the 
emphasis wttl reatly be on mastering the vocabulary of COBOL, tn 
preparation for further work wtth the language. This ttme, you 
will Learn terms such as "diviston" and "section". And as before, 
I hope that you will not waste your time and energy memortating 
the definittonse of these terms. Rather, your efforts should be 
dtrected toward learning to apply the deftntttons -- to recognize 
a dtvtston in a program, for instance, and to perceive the 
relationship between divistons and secttonse. 


Find out how many dtvistons there are, thetr names, and thetr 
sequence. Determine how you would recognize the beginning of a 
ditviston, section, and paragraph. Learn what dtsatingutshes an 
entry. 


Reading assigment: PROGRAM STRUCTURE 
Divisions 
Sections 
Paragraphs 
Entries 
Sample division with structural 
units identified 


How many divisions are there in a COBOL program? 


four 


The four divisions are Data, Environment, Identification, and 
Procedure, but this is not their correct order. What is their 
correct order? 


Identification, Environment, Data, Procedure 
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The entries that comprise a COBOL program are divided into four 
divisions according to the purpose served by the entries. This 
allows the programmer to give his full attention to one division -- 
one set of entries -- at a time, instead of having to worry about 
the whole program at once. 


Since every program is divided into the same divisions, which 
always appear in the same order, it is easy for someone other than 
the author of the program to pick it up and know where to find 
whatever he is looking for. 


You can conclude that the standardized program structure is 
{an aid to program writers] [an aid to program readers]. 


an aid to program writers AND an aid to program readers 


Name the divisions of a COBOL program, in order. 


Identification, Environment, Data, Procedure 


As part of your reading assignment, you examined a sample 
division. Which division was it? 


Environment division (The first entry of the division gives the 
division name.) 


The beginning of a division is marked by a division header entry. 


What marks the end of a division? 


There is no special "end of division" entry. You know that the 
preceding division has ended when you come to the next division 
header entry. 


Every division header entry contains the word , and every 
section header entry contains the word ; 


DIVISION; SECTION 
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Note that all header entries begin to the left of the broken 
vertical line on the program sheet, while all other entries are 
wrttten to the right of the broken line. The rules that govern 
this are explained in detail in the next course in this series. 
At thie time, it will suffice to say that the headers are brought 
out a little to the left for emphasis. 


You also note that each header, like every other entry, is 
terminated by a . 


period 


There ts no "offtctal" definition for "entry" tn COBOL, but the 
definttton given in the reference handbook does not contradict 
anything you may later read in other COBOL publications. Most 
COBOL manuals refer to some entrtes as "entries", to othere as 
"sentences", and have no term at all for still others. 
Throughout thts course, however, we wtll use the term "entry" 
in one, precise way. 


Which of these is a valid paragraph header entry: 


DATE~WRITTEN 
SEQUENCE-CHECK=PROCEDURE . 
FILE-CONTROL PARAGRAPH 
MINOR~TOTAL PARAGRAPH 


SEQUENCE-CHECK-PROCEDURE. 


DATE-WRITTEN is an acceptable paragraph name, but ts not a valid 
header entry because the pertod ts missing. (If looking for 
pertods seems to you ltke picking nits, let me assure you that 
one of the hallmarks of an effective COBOL programmer is his 
metteculous attention to the smallest details.) 


4] 
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Inasmuch as periods are so important to the compiler, it behooves 
us to be able to tell the difference between a period and a 
decimal point in an entry. A period is always followed by a 
space; a decimal point is never followed by a space. 


This distinction explains why a decimal point must never be 
written as the rightmost character of a numeric literal. How 
would the entry below appear to the compiler if the literal were 
written with a decimal point (66365.)? 





The entry would appear as two entries, MOVE 66365. and TO CONTROL- 
DATE. Neither of these "entries" would make sense to the compiler, 
of course, and both would be regarded as being incomplete. 


The correctly written section header entry is 


INPUT-OUTPUT SECTION. 


INPUT/OUTPUT SECTION. 
INPUT-OUTPUT-SECTION. 


INPUT-OUTPUT SECTION. 


Every section begins with a section header entry. There is no 
"section trailer entry", but you will know that you have passed 
the end of a section when you come to the next 


[division header entry] 
[section header entry] 
[paragraph header entry]. 


division header entry OR section header entry 


One of the divisions is too small and too simple to require 
sectionalizing. This division, which never contains sections, 
is the _ division. 

eee 


Identification 
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Although he is not required to do so, the programmer may, at his 
own discretion, choose to establish sections in the 
division of a program. 


Procedure 


The Data division contains sections, but not paragraphs. In 
place of paragraphs, the division contains entries arranged ina 
form that somewhat resembles an outline. Most of the entries in 
the Data division begin with numbers like 01, 02, etc. These 
numbers are definitely not paragraph headers; rather, as you 
already know, they are ° 


level numbers 


The only division that always contains both paragraphs and 
sections is the division. 


Environment 


The division that always contains paragraphs, and sometimes 
contains sections, is the division. 


Procedure 


There are always sections, but never paragraphs, in the 
division. 

ee°0 
Data 


There are always paragraphs, but never sections, in the 
division. 


Identification 
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It ts necessary that you get a good idea of how divistone, 
sections, and paragraphs appear in an actual program. For this 
purpose, turn to the CASE STUDY program at the end of the 
reference handbook, and tocate the four divtstons. The next 
seven frames all refer to that program. 


The longest division in the case study program is the 
division. 


Data 


How many paragraphs are in the Identification division? 


four 


How many paragraphs are in the Environment division? 


three (two in the Configuration section, and one in the 
File-Control section) 


How many paragraphs are in the Data division? 


none (The Data division never contains paragraphs.) 


What are the names of the sections of the Data division? 


File section and Working-Storage section 


How many sections are in the Procedure division? 


none 
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How many paragraphs are in the Procedure division? 


eight 


So far we have been looking at COBOL programs in bits and pteces, 
to become conversant with the elements that are found in programs, 
and with the etructure of programs. From this potnt on, we are 
gotng to start paying more attention to the eontent of COBOL 
programs, and the meaning of various entrtes. In your next 
reading asstgnment, you wtll take an overall look at the four 
divisions, to see what kinds of information each one contains. 


You should tearn to desertbe the kinds of information found in 
the divistons, to name the division in which you would look for 
spectfied information, and to discuss how the dtvistons are 
related to each other. 


Reading assignment: PROGRAM CONTENTS 
Identification division 
Environment division 
Data division 
Procedure division 


Their names are excellent clues to the kind of information in the 
divisions. So if you remember the names of the divisions, the 
rest is almost too easy. 


As its name indicates, the Identification division the 
program. The Environment division describes the machine 

for compiling and executing the program. The Data division 
describes the _ to be processed. And the Procedure division 
tells the _ to be followed in processing the data. 


identifies; environment; data; procedures 


While each division contains information of a different kind, all 
of the divisions have certain functions in common. For example, 
every division is intended, to a large extent, to inform people 
who read the program. However, the division that exists almost 
solely for that purpose is the division. 


Identification 
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The name of the game is "data processing", so all of the divisions 


have something to do with data. Only one division is called the 
Data division, though, and in it you would see the 


{assignment of data files to input-output devices] 
[breakdown of data files into records] 
{reading and writing of data files]. 


ONLY the breakdown of data files into records 


In which division would you look to find out: 
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How the output records are organized? 

What actions will follow the processing of the last input 
record? 

What input-output devices are used in the program? 

What the name of the program is? 


Organization of records: Data division 
Actions: Procedure division | 
Input-output devices: Environment division 
Program name: Identification division 


While the divisions work together as a team, each division is 
independent. That is, each has a separate and distinct role to 
play. For example, the Data division describes data files and 
records, but does not tell what input-output device will read or 
write the data. Assigning files to input-output devices is a 
job of the division. 


ee°0e 
Environment 
Likewise, the Procedure division uses the names of data items, 


but does not describe the items. If you wanted to know how many 
characters a data item contains, or where the item appears 


within a data record, you would look in the division. 
eee 

Data 
Ab 
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Let's get more specific, by taking a closer look at each division. 
Remember that we are not concerned wtth the rules for composing 
program entrtes, even though -- unavoidably -- some of the rules 
wtll pop up tn our dtscusston. You are not expected to be able 
to write a program at the conclusion of thts course; only to be 
able to read a program, and comprehend what you read. The rules 
for program entries have some bearing on this, for they help you 
to realize the ways tn which other programs may be different from 
the sample programs. 


Reading assignment: IDENTIFICATION DIVISION ENTRIES 
Sample Identification division 


WEY Although the sample Identification division given in the 
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reference handbook occupies several lines, only a small part of 
it is actually required by COBOL rules. Determine which part is 
required. 





All of the other entrtes are opttonal, but very useful. They all 
fall tnto the eategory of "program documentation", and are well 
worth the few extra moments it takes to write them. 
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Seven fixed paragraph names are mentioned in the reference 
handbook. Each name is a reserved word. The reference handbook 
makes it clear that 


the programmer must write a Program-Id paragraph and no 
more than six other paragraphs, for which he can 
invent names or use fixed names. 

no more than seven paragraphs may be written, and their 
names must be chosen from among the seven fixed names. 

the programmer is allowed to write more than seven 
paragraphs, provided that he uses reserved words for 
the names of the paragraphs. 


no more than seven paragraphs may be written, and their names 
must be chosen from among the seven fixed names. 


One paragraph, the Program-Id paragraph ts required. The 
programmer is not allowed to invent names for the other 
paragraphs. Nor ts he allowed to use any reserved words for 
names of paragraphs in the Identtiftcatton dtviston, other than 
the seven fixed names that are provided. 


pate 


How manyAparagraphs might the sample division have had? 


two (Date-Compiled and Security) 


The program name, which is required to appear in the Program-Id 
paragraph, is the name by which the program will be identified 

on a job control card at the time that the object program is 
executed. Program name is an example of a special kind of 
non-numeric literal called an "external name". Like all non- 
numeric literals, external names are enclosed in quotation marks. 
Unlike other non-numeric literals (which can contain as many as 
120 characters), external names are limited to eight characters -- 
a letter followed by up to seven letters and/or digits. 


48 





System/360 COBOL COBOL Program Fundamentals 





(3/66) 


There ts not much more that can be satd about the Identifteatton 
diviston, so we will go on to the Envtronment division. Here our 
sample division involves a card input file and a printed output 
file; however, the same sorts of entries are used for all 
sequenttally organized files, whether they are on tape, disk, 
card, or printer devices. Addtttonal entries, which we wtll not 
deal wtth in thts course, are used for non-sequenttally organized 
data files, on disk or other dtirect-access devices. 


Reading assignment: ENVIRONMENT DIVISION ENTRIES 
Sample Environment division 
System/360 model numbers 
Assignment of files to input-output devices 


Knowtng how to deectpher the model number and storage capacity 
codes in the Source-Computer and Object-Computer paragraphs ts a 
minor, but useful bit of tnformatton. The aetual model number is 
given, so only the storage capacity code represents a problem. 

An eastly solved problem, however, since you can look up the 
meanings of the code lettere whenever you need them, 


Use the table of code letters in the reference handbook to 
interpret the sample Environment division. Both the source 
computer and the object computer are IBM System/360 Model ; 
with a storage capacity of bytes. 


ee0e 
30; 65,536 


The precise number of bytes in storage is rarely useful to anyone. 
It ts suffietent to know the approximate number. So, we 
generally talk in terms of round numbers; for instance, the 
letter E ean be satd to stand for 32,000 (32K) bytes of storage. 
These code letters are used in many references to System/360 -- 
not merely in System/360 COBOL. Reference manuals, for example, 
may speak of "F comptlers", by whteh they mean compilers that 
require a system with 64K bytes of storage. One way to remember 
the approximate values of the code letters is to remember that 
the table starts wtth C, which stands for 8,000 (8K). Then just 
double the number of bytes for each succeeding letter; Dts 16K, 
E ts 32K, F te 64K, and so on. By this method, you will be off 
by several thousand bytes by the time you get to I, but at least 
you wtll know what ball park you are playing tn. 
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Turn to the Environment division of the case study program in 
your reference handbook. What is the source computer for that 
program? 


An IBM System/360 Model 50 with 128K (actually 131,072) bytes 
of storage 


The File-Control paragraph of the Environment division is 
important because in it every input or output is assigned 
to an input or output ‘ 


file (data file); device 


Each entry in the File-Control paragraph begins with the word 
SELECT, followed immediately by the file name. The file name is 


the name by which that file will be identified on a job 
control card. 

a name which indicates the type of input-output device 
used for that file. 

the name which that file is called in the Data and 
Procedure divisions. 

a name which has been filed with the Program Registrar 
in Washington. 


the name which that file is called in the Data and Procedure 
divisions 


The external name that appears in each SELECT entry is the 
job-control-card name for 


Deve file 
the device to which the file is een 
ee0e 
the file 
You encountered another external name earlier -- the program 


name gtven tn the Program-Id paragraph of the Identtftcatton 
dtvtstion. 
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The file name and the external name are, then, two names for the 
same data file. It is permissible for these names to be the 
same; however, external names are limited to eight characters, 
whereas file names (like all programmer-supplied names) may be 
up to characters long. 


30 


The SELECT entry below states that a file known as within 
the program will be called on a job control card. 





PARTS-EXPLOSION=FILE; PARTS 


GYAN The assigning of a file to a device consists of naming a device 
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class and a device number. Which statement below gives the 
correct rule regarding device classes and numbers? 


Both device class and device number must be specified for 
every file. 

Device class must be given for every file; number is 
sometimes omitted. 

Device number is required for every file; device class 
may be omitted. 

Device class and device number are optional; both may 
be omitted. 


Device class must be given for every file; number is sometimes 
omitted. 


Device number ts sometimes omitted in order to make the program 
"devtce tndependent", This means that an object program may be 
eomptled wtthout spectfytng exactly whitch input-output devices 
are to be used. The choice of devices ean then be made when the 
object program tis executed. 
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What are the three device classes? 


UTILITY, DIRECT-ACCESS, and UNIT~RECORD 


Magnetic disk devices are included in 
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[UTILITY] 
[DIRECT-ACCESS] 
[UNIT-RECORD]. 


BOTH UTILITY AND DIRECT-ACCESS (because they can read and 
write data both sequentially and randomly) 


In which device class or classes does each of the following 
devices belong? 


Ls IBM 2540 Card Read Punch 

Zs IBM 7320 Drum Storage 

36 IBM 2403 Magnetic Tape Unit 
4. IBM 2302 Disk Storage 

ay IBM 1403 Printer 


l. UNIT-RECORD 

26 Both UTILITY and DIRECT-ACCESS 
3 UTILITY 

4. Both UTILITY and DIRECT-ACCESS 
5. UNIT-RECORD 
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We have seen that there are three classes of devices; UTILITY, 
DIRECT-ACCESS, and UNIT-RECORD. But our main concern is with 
data files rather than the devices used for reading and writing. 
Files basically fall into two categories: sequential and non- 
sequential. In sequential files, records are read or written in 
the order in which they are physically stored. In non-sequential 
files, records are not read or written in the order in which they 
physically appear on the storage medium. 


Sequential files can be assigned to all three device classes. 
Non-sequential files can be assigned only to DIRECT-ACCESS 
devices. This means that devices can be used only for 
sequential files, while devices can be used for both 
sequential and non-sequential files. 


UTILITY and UNIT-RECORD devices can be used only for sequential 
files, while DIRECT-ACCESS devices can be used for both sequential 
and non-sequential files. 


(Card files and printed files must be assigned to UNIT-RECORD; 
only these files may be assigned to this device class.) 


sequential 
The file named in the entry below is a Pena TE file. 





sequential (A file must be sequential if it is assigned to a 
UTILITY device.) 


As tt tse used here, the term "sequential file" does not 
necessarily tmply that the records in the file are "in sequence". 
It does mean that the recorde are read from the storage medtum 
(for instance, magnetic tape) one after another, in the order in 
whieh they appear; or that the records are written in consecutive 
places on the storage medium. Note, however, that the records 
might be out of order as far as thetr control numbers are 
coneerned; a simple example of this is a file of unsorted reeords 
on magnette tape -- these records will be read sequentially by 
the sort program, but they are not in sequence. 
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SELECT entries fon oat specify whether a file is to serve as 
input or as output. 


do not 


The file will be tdentified as input or output tn the Procedure 
division entry that "opens" the file (makes it ready for reading 
or writing). This arrangement makes tt posstble for the COBOL 
programmer to use the same SELECT entry tn at least a couple of 
programs -- the program that creates the file, and any program 
that uses that file as tnput. 


Read the SELECT entry below, and then answer the following 
questions. 





ds Is the file a sequential file, or a non-sequential file? Why? 

cae Is it an input file, or an output file? How can you tell? 

3% What class of device is assigned to the file? What specific 
device? 

4. What is the file's external name? 

De What name will be used in the Procedure division to refer to 
the file? 


le A sequential file, because it is assigned to a UTILITY device. 
2% There is no way of telling from the SELECT entry whether 
this is an input or output file; it would be necessary 
to examine the Procedure division of the program to 
see how the file is processed. 
36 UTILITY; specifically, magnetic tape units of the IBM 
2400 series. 
4. INVMST 
5. INVENTORY-MASTER 


54 





System/360 COBOL COBOL Program Fundamentals 





(3/66) 


Keeping in mind that there must be a SELECT entry for every file 
that is processed by the program, look at the Environment division 
of the case study program in the reference handbook. 


is How many files are processed by the program? 

2s What are the file names? 

3. No device number is given for one of the files; what 
kinds of input-output devices might be used for 
this file? 

4. For each file, determine whether it is sequential or 
non-sequential. 


is two 

Ze BILLING-FILE, CUSTOMER~BILL-FARE 

3 Magnetic tape, disk, drum, or data cell devices might be 
used for the BILLING-FILE. 


4. Both files are sequential. 


A final word about sequential and non-sequenttal files: Thts 
eourse ts restricted to COBOL programs that process sequential 
files. This has been done because the logie of sequential input, 
processing, and output ts familiar to even the beginning 
programming student -- which makes tt possible for us to 
eoncentrate on COBOL tnetead of taking exeurstons into the worlds 
of systems destgn, data management, and so on, to explatn what 
the COBOL program ts trying to accomplish. 


Non-sequenttal file processing ts not necessarily more difficult 
to program tn COBOL than sequential file processing, but many 
people are unfamiliar with tta underlying prtnetples. Besides, 
there are different methods of non-sequential file organization: 
"indexed", "direet", and "relative" -- each with tite own 
processing logte. So, we wtll steer clear of non-sequenttial files 
in this course, just to keep your introduction to COBOL from 

being complicated by too many other programming considerations. 
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LESSON 5 


The Data dtvision of most COBOL programs is quite a bit longer 
than the Environment dtvtston or the Identiftieatton dtiviston. 

But don't get the tdea that thts dtvtston ts harder to understand 
just because it ts longer. The fact ts that the Data division 
consists of many entries of similar types, repeated again and 
again; when you get the hang of one or two ttem deseription 
entrtes, for tnetance, you will be able to cope with most of the 
ttem description entries that you may find in any program -- and 
these account for the bulk of the Data diviston. 


As you examine the sample Data dtvtstons in the reference hand- 
book, tt wtll be worth your whtle to read every entry 
tndtvidually, instead of merely glancing at the page. That will 
help you to grasp the pattern of entries. | 


Reading assignment: DATA DIVISION ENTRIES 
Sample Data division 
Another sample Data division, with 
entry types identified 


File description entries are found in the section. 


File 


File description entries are made up of 
[record descriptions] 


[item description entries] 
[descriptions of independent items] 


NONE of these 


File deseription entries are clearly separate from other entries 
and groups of entrtes tn the dtivtston. 
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[Working-Storage section] 
[File section] 


ee0e 
BOTH the Working-Storage section AND the File section 
The second sample Data diviston in the reference handbook 
tllustrates this. 
Record descriptions are made up of 
[file description entries] 
[item description entries] 
[descriptions of independent items] 


item description entries 


The descriptions of independent items are 


een descriptions 
item description entries 


ee0e 
item description entries 
Review the two previous frames. Is it logical to conclude that 


record descriptions are made up of descriptions of independent 
items? 


eco 
No 
Record deseripttons and independent ttem descriptions are 


separate and distinct parts of the Data diviston. Thies tse shown 
in the second sample dtviston. 
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of a typteal Data dtviston -- terma like "file", "record", "item", 
and "independent ttem",. Each of these terms has a precise 
meaning that you will need to know before you can go further in 
your study of this dtvitston. Along wtth the definittonse of the 
above terms, I have tneluded defitnittons of other terms that you 
wtll be using very shortly, ltke "elementary ttem" and "group 
ttem", I don't want you to learn the definitions word for word; 
just make sure that you ean explatn to yourself the dtfferences 
and stmtlartittes between the vartous terms. 


Reading assignment: SYSTEM/360 COBOL TERMS FOR UNITS OF DATA 


An item is a piece of data 
a storage area that will hold a piece of dataf ° 


a storage area that will hold a piece of data 


This ts a useful distinetton to make. What the COBOL programmer 
actually accomplishes in the Data ditviston te to reserve areas 

in which data will be stored while tt ts being processed. The 
data ttself will change with each record that tis put in or out -- 
except in the case of constants. 


Suppose that an item named DATE is made up of three smaller items, 
MONTH, DAY, and YEAR. The three smaller items are not made up 

of still smaller items. 

In COBOL terms, DATE is 


a group item ; 
an elementary item 


while MONTH, DAY, and YEAR are 


group items ; 
‘elementary items 


a group item; elementary items 
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eee 
EITHER a group item OR an elementary item 


A record ts nearly always a group ttem, tn that tt consists of 
smaller items. However, the programmer may sometimes decide to 
define a record as an elementary item; that ts, he may choose not 
to descrtbe any of the smaller items that make up the record, 

and treat itt ase one big item. 


Earlier we noted that descriptions of independent items are 
separate from record descriptions in the Data division. The 
reason for this should now be clearer to you, since an 
independent item, by definition, is any item that is 

[not a part of the record] [not a record]. 


not a part of a record AND not a record 


Thus, there are three possible things that an item can be: 
L. a record 
2. a part of a record 
J an independent item 


It is possible for an elementary item to fall into any one of 
these three categories. However, a group item can only be 


{a record] 
{a part of a record] 
{an independent item]. 


EITHER a record OR a part of a record 
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Any group item can be made up of elementary items and/or other 
group items. For example, there might be an item called CATALOG- 
NUMBER which is made up of AVAILABILITY-CODE, SHIPPING-CODE, and 
WAREHOUSING-NUMBER. WAREHOUSING=-NUMBER might be further sub- 
divided into WAREHOUSE-LOCATION, MANUFACTURER, PRIORITY, and 
BIN-NUMBER. One or another of these subdivisions might be still 
further subdivided. 


Sooner or later, however, we will arrive at the point where no 
item can be subdivided any further. That is, any group item can 


ultimately be reduced to a group of items. 


elementary 


Perhaps this notion of items-within-items will be easier for you 
to see if we look at it from the opposite point of view. We can 
begin with a number of elementary items, and combine them into 
group items. The group items can then be combined into larger 
group items. When we have combined all of our items into one, 
all-inclusive group item, that item is called a ° 


record 


By going one step further, and collecting an entire set of all 
similar records, we will create a 


ererg 
(file 
eee 
file 
In addition to data records, a file may include records 


which contain information about the file. 


eee 
label 


Label records (often spoken of simply as "labels") are generally 
written at the beginning and end of a file. Labels are also 
written at the beginning and end of each phystcal volume, 
espectally when a file ocecuptes more than one volume; for 
tnstanece, labels would be written at the beginning and end of 
each magnetite tape reel tf the ftle occupted more than one reel. 
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those ten records constitute a : 


block 


Which statement is correct? 


A record must contain more than one item. 

A block must contain more than one record. 

A group item must contain more than one elementary item. 

An elementary item must contain more than one independent item. 


A group item must contain more than one elementary item. 


The fourth statement above tis ridicutous, but the first two verge 
on being correct. However, a record may ttself be an elementary 
ttem (although most records are group ttems); and a block may 
contain just one record. When tt comes to blocks, there tse a 
simtlar but econflteting term that you should watch out for: 
"blocked". Records are sometimes said to be "blocked" when two 
or more records are combined tnto one physical data unit. 

In COBOL, we do not use this term: inetead, we have the term 
"block", whitch ts used only as a noun, meaning a physical data 
untt that comprises one or more records. 


In your next reading asstgnment, which deals with file description 
entries ("FD entries"), you will eneounter several of the terms 
we have just defined. You may, of course, look back at the 
definittons of terms whenever you need to. You wtll read many 
details about clauses of FD entries, but don't try to memorize 
these details. As you read about each clause, you should look 
for that clause in the sample FD entry, and in the FD entries of 
the sample Data dtvistone in the reference handbook. fry to 
explain the meaning of each clause to yourself. By the way, be 
sure to note that even the absence of a elause from an FD entry 
has some significance. 


Reading assignment: FILE DESCRIPTION ENTRY 
| Level indicator 
File name 
RECORDING MODE clause 
BLOCK CONTAINS clause 
RECORD CONTAINS clause 
LABEL RECORDS clause 
DATA RECORD clause 


eee 


62 


System/360 COBOL : COBOL Program Fundamentals 





ax 


(3/66) 


A file description entry always gives the file name. We have 
previously studied file names (in lesson 4), because the file 
name also appears ina entry in the division. 


eee 
SELECT; Environment 
FD entries do specify whether a file is to serve as 
do not 
input or as output. 
eee 


do not 


The level indicator and the file name are always required ina 
file description entry. Which clauses are always required? 


LABEL RECORDS and DATA RECORD clauses 


The LABEL RECORDS clause in the FD entry below signifies that 
there are 


[no label records of any kind in the file] 
[standard label records in the file, but no additional user labels] 
{non-standard label records in the file]. 





EITHER no label records of any kind OR non-standard label records 


If there are no label records (as in a ecard file), no further 
work ts requtred of the programmer. If there are non-standard 
Labels, the programmer doesn't get off quite so easily, since he 
must provide for the input or output, and processing, of these 
records. Even though the handling of non-standard labels ¢s 
tnteresting, and often quite challenging, tt would take us out 
of our way to discuss how it ts done; suffice it to say that the 
programmer's ltfe ts stmpler when label records are standard. 
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The file described in the entry below contains 


[standard label records] 
{non-standard label records] 
{user label records]. 





BOTH standard label records AND user label records 


Whenever a programmer-supplted name appears in the LABEL RECORDS 
elause, there are user labels in additton to standard labels in 
the file. The user tabelse provide information about the file 
beyond that given in the standard labels. 


Standard label records must meet the format standards specifted 
by IBM for the Sysatem/360. These labels provide information 
used by the input-output control system (I0CS), and so are 
sometimes called "System standard" labels. 


Both user and non-atandard label records are created and 

processed by the user. User (sometimes called "user standard") 
labels are those that meet certain minimum format standards 
spectfied by IBM; whereas non-standard (sometimes called “user non- 
standard") labels are those that do not foltow IBM System/360 
standards. 


The DATA RECORDS clause [names] [describes] each kind of record 
in the file. 


names ONLY 


The three recording modes are 7 
eee 


V, F, and U 
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BIT the letters V, F, and U stand for , respectively. 


variable length, fixed length, and unspecified length 


yeleh Block-length and record-length fields are found only in mode 


V 


yim The length of a mode U record is "unspecified" in the sense that 


there is no definite way of determining how many 
characters it contains 

the progranmer has been given no idea of how long 
the record might be : 

the length is not specified in a record-length or 
block-length field 

the length might vary unpredictably anywhere from 
zero to infinity 


the length is not specified in a record-length or block-length 
field 


wwe Variable length records are permitted in recording mode 


(V} [F] [0]. 


BOTH V and U 


ELE] Which statement is true? 


In recording mode V, there must be more than one record 
in each block. 

In recording mode U, there must be more than one record 
in each block. 

In recording mode V, there must be only one record in 
each block. 

In recording mode U, there must be only one record in 
each block. 


In recording mode U, there must be only one record in each block. 
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The names of the recording modes are a little deceptive. 
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In particular, the mere fact that each block of a file contains 
one fixed-length record does not necessarily mean that the 
recording mode is F. Besides F, the recording mode for such a 
file might also be [V] [U]. 


eee 
EITHER V OR U 
However, this choice ts not avatlable for files that are assigned 


to UNIT-RECORD devices. The recording mode for unit-record files 
(card files and printer files) can only be F. 


In which mode or modes can there be one variable-length record 
per block? 


either V or U 


In which mode or modes can there be more than one variable-length 
record per block? 


V only 


True or false: Records written in mode V need not be variable- 
length. 


True. (Fixed-length records may be written in mode V.) 


True or false: Records written in mode F need not be fixed~- 
length. : 


False. (Variable-length records cannot be written in mode F.) 
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PY turn to the case study program at the back of the reference 
handbook, and locate the FD entry for the BILLING-FILE. The next 
five frames refer to that entry. 


yaiee How many records are in each block of the BILLING-FILE? 


ee0@ 
five 
yaa How many different types of records are in this file? 
ee0e 


one (BILLING-RECORD) 





Did the programmer make an error in omitting the RECORD CONTAINS 
clause? 


No. (It is permissible to omit this clause, for the compiler 
can determine how many characters the record contains from the 
pictures given in the record description. ) 


Yaka The recording mode of the BILLING-FILE is 


mode V 
mode F 
not specified -- hence, mode U 
unknown 


mode V (Whenever the RECORDING MODE clause is omitted, the mode 
is V.) 
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Does the BILLING-FILE therefore contain variable-length records? 
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No. Either fixed or variable-length records can be written in 
mode V. 


This particular file happens to contain ftxed-length records. 
You could not tell that from the FD entry, however. You will 
learn shortly how to recognize a vartable-length record by tits 
record description. (Of course, if the recording mode had been 
F, you would have known at once that record length was fixed.) 


Now locate the FD entry for the CUSTOMER-BILL-FILE in the case 
study program. The next three frames refer to that entry. 


How many records are in each block of the CUSTOMER-BILL-FILE? 


one (The BLOCK CONTAINS clause is omitted when there is only 
one record per block.) 


How many different types of records are in this file? 


four (BILL-LINE-1, BILL-LINE-2, BILL-~LINE-3, and BILL-LINE- 4) 


The recording mode of the CUSTOMER-BILL-FILE is F. Suppose that 
a record of the first type (BILL-LINE-1) contains 133 characters. 
From this you can conclude that 


{all records of the first type must contain 133 characters] 
[records of the other three types must also contain 133 characters] 
[every record in the file contains exactly 133 characters]. 


ALL of these statements are correct. In recording mode F, all 
records in the file are the same length. 
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LESSON 6 


When you examined the sample Data divisions in the reference 
handbook, you saw that there are comparatively few kinde of 
entrtes that make up the division. First of all, there are the 
divitston and seetton header entries (DATA DIVISION, FILE SECTION, 
WORKING-STORAGE SECTION), whose meaning ts obvious. Next, there 
are file description entries, which we have just finished 
discussing tn some detail. 


All remaining entries in the dtviston are item desertption 
entries. These may etther be found in record desecrtpttons, or 
they may be deseriptionse of tndependent items. In this lesson, 
we wtll dtseuss the concept of a "reeord description" and tits 
relatton to the structure of a record. (You will study specific 
details of ttem description entries in Lesson 7.) 


Reading Assignment: RECORD DESCRIPTIONS 


How many record descriptions will you find in a Data division? 


One 
{One for each file 
One for each type of record in each file 


One for each type of record in each file 


Suppose that a program is being written to process one input file 
and one output file. There are three types of input records, and 
one type of output record. Using "FD" to represent a file 
description entry, and "01" to represent a record description, 
the correct sequence of the File section for this program is 


FD, 01, O1, O1, FD, Ol 


fe FD, 01, 01, Ol 
O01, 01, O01, O1, FD, FD 


FD, O1, 01, 01, FD 01 (The record descriptions for each file 
must follow right after the file description entry for that file. 
The input file need not have been described first, so FD, Ol, FD, 
01, O01, 01 is another correct sequence.) 
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help you a great deal in your study of COBOL tf you are able to 
visualize that record structure. This its simple to do -- once 
you know how; and probably the stmplest way to do it te by making 
a drawing of the record. We will proceed to make such a drawing, 
based on the sample record descriptton given in the reference 
handbook under RECORD DESCRIPTIONS (your latest reading asstgn- 
ment). Turn to that sample record description. 


We could draw vartous kinds of dtagrams to represent the record. 
The one I will develop here is the one that seems to me to 
correspond most closely to the way the record description itself 
te organized. 


The first thing I wtll do ts draw a box that represents the whole 
record. A record, you will remember, tis the most tnelusive data 
item. It ts a storage area that will contain data when the 
program ts executed. The name of this particular record ts 
PURCHASING. 


PURCHASING 


The level number of this record, like all records, is _e 


Ol 
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PPLE The record is now subdivided. This means that the same storage 


area that is known as PURCHASING is divided into smaller areas. 
In fact, certain parts of this storage area will be divided again 
and again, but the dividing is done one step at a time -- or in 
COBOL terms, one level at a time. The next level of this record 
is level 02. The three items at level 02 are F 


ACCOUNT, STATUS-CODE, and TRANSACTION 


This drawing shows how the record has been subdivided so far. 
The three ttems shown below coinetde wtth the ortginal record. 


ACCOUNT 


| STATUS -CODE | 


TRANSACTION 
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PTF But we can still refer to the record as a whole by the name 
PURCHASING, so I will put the original box back into the drawing 
that we are developing. 

The large box (on the left) and the three smaller boxes (on the 
right) represent 


two adjacent areas in storage 
two separate storage areas of equal size 


PURCHASING val 
aa CODE 
TRANSACTION 


| two same, identical area in storage 


the same, identical area in storage 


Wyy¥m@ Ina record description, an entry for a group item is followed by 
entries for the items that make it up. A group item comprises 
all the items described under it, until a level number equal to 
or less than the level number of the group item is encountered. 


This means that the items that make up a group item 
{must be described right after the group item] 
{must have level numbers that are equal to or less than the 
group item] 
[must have level numbers that are greater than the group item]. 


must be described right after the group item AND must have level 
numbers that are greater than the group item 
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In the record description on which we are basing our drawing, a 
level 02 item which is further subdivided is followed by items 
with level number 03 or greater. 


Which items defined at level 02 in this record description are 
further subdivided? | 


ACCOUNT and TRANSACTION are further subdivided; STATUS-CODE 
is not. 





When level 03 is brought into our drawing, this is the result: 


ol 02 03 
PURCHASING ACCOUNT CATEGORY 
Pees 


|! TRANSACTION! | VENDOR 
PURCHASE 


LEVEL—> 


BEX Since STATUS-CODE is not further subdivided, it is 


an independent item 
a non-group item 

an elementary item 
a group item 


an elementary item 
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yeu YOu can tell which items are group items and which are elementary 
items by examining the level numbers that follow them in a record 
description. Group items are followed by items with higher level 
numbers. Elementary items are followed by items with equal or 
smaller level numbers. 


Which of the level 03 items in our sample record description are 
group items? Which are elementary items? 


VENDOR and PURCHASE are group items; CATEGORY and NUMBER are 
elementary items. 


You may have nottced that there is a level 04 ttem named NUMBER, 
and a level 03 ttem with the same name. Duplication of names ts 
perfectly all right tn COBOL, as long as the names are "qualified" 
when they are used tn procedures, so the compiler will know 
prectsely whitch ttem ts betng referred to. Qualification ta done 
by naming the group ttem which the item wtth a duplicate name tse 
part of; tn the record desertptton we are working with, the titeme 
would be qualifted by ealling them NUMBER OF ACCOUNT and NUMBER 

OF VENDOR, to make tt clear which ta which. You wtll study the 
rules for qualifying names in the next book of thts series. 


ym¥e Here is our drawing with the level 04 items added. 


Sere ane wa " 
een 
(adeaaa -CODE 
TRANSACTION] | VENDOR i 
[NUMBER] 
PURCHASE - 
-E AMOUNT 


Which level 04 item is a group item? What items does it contain? 


DATE is a group item, containing MONTH, DAY, and YEAR. 
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REE] Finally, we have a complete diagram of the structure of this 
record. In our dtagram, the stzes of the boxes do not indteate 
the sizes of the ttems; actually, NAME contains 25 characters, 
while STATUS-CODE contains just 1 -- but the boxes for these two 
ttems are the same size. The reason for this is that we are not 
coneerned about the sizes of ttems at thts moment. Instead, we 
are coneerned with the order in which the items appear in the 
reeord, and how the ttems are related to each other. 


LEVEL—> 01 04 05 
PURCHASING a caren 
ee =CODE 
TRANSACTION] | VENDOR 


[NUMBER 


PURCHASE DATE 


a 


ee 


The diagram shows us the breakdown of a record into group and 
elementary items. Any item that is divided into smaller items 
at the next level is a group item. An item that is not divided 
into smaller items is an elementary item. 


Pick out the group items and the elementary items in the record. 


Group items 


Elementary items 


PURCHASING CATEGORY 
ACCOUNT NUMBER 
TRANSACTION STATUS-CODE 
VENDOR NAME 
PURCHASE NUMBER 
DATE MONTH 

YEAR 

DAY 


AMOUNT 
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PEZY Now let's put our diagram side by side with the record description. 


Serr oot earecor 
[meer | 


| STATUS-CODE mae 
TRANSACTION] | VENDOR ae 


PURCHASE DATE 


04 


POINT. 





Which statement best describes the sequence in which the item 
description entries appear? 


The level 01 entry appears first, followed by a level 02 
entry, then entries for the items contained within 
the 02 item; then another 02 entry, and so on. 

The level Ol entry appears first, followed by all of 
the level 02 entries, then all of the level 03 entries, 
04 entries, and 05 entries. 

The level Ol entry appears first, followed by a level 02 
entry, then an 03 entry; and then a rhythmic cycle is 
repeated: 02, 03, 04; 03, 04, 05; and so on. 


The level 01 entry appears first, followed by a level 02 entry, 
then entries for the items contained within the 02 item; then 
another 02 entry, and so on. 


PEER The item description entries are made 


in the sequence of the items in the record 


fin any convenient sequence 
in numerical order by level number 


in the sequence of the items in the record 
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True or false: The higher the level number, the smaller the 
size of the item; for instance, a level 03 item is always 
smaller than a level 02 item. 


False. The level number and size of an item are two completely 
separate considerations. Earlier we noted that there was a 
one-character level 02 item in our record, as well as a 25- 
character level 04 item. 


The point made in the previous frame applies to items in general. 
But suppose we were dealing with a group item and the items that 
make it up. Then we would have a situation in which 


[the group item must be larger than any item within it] 

[the size of the group item is not related to the size of the 
items within it] 

{the size of the group item is equal to the sum of the items 
within it]. 


the group item must be larger than any item within it AND the 
size of the group item is equal to the sum of the items within it 


And, as we have already seen, the ttems that make up a group ttem 
must have higher level numbers than the group item. For example, 
itn the record that we have been working wtth, DATE (level number 
04) eontatns MONTH, DAY and YEAR (all level number 05); each of 
the level 05 ttems happens to econtatn 2 dtgtte, so DATE contains 
6 digtte. 


Some record descriptions contain entries that begin with level 
number 88. The reference handbook suggests that when you are 
analyzing the structure of the record, you can 


treat level 88 entries as if they were 01 entries 
deal with level 88 entries just the same as other entries. 
ignore the level 88 entries 
eee 
ignore the level 88 entries 
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Before we go on to look at the elauses that make up ttem 
description entries, I want you to try your hand at drawing a 
dtagram to represent the structure of a record. Turn to the 
sample Data division in the reference handbook which tis printed 
under the tttle, Another sample Data division, with entry types 
tdentified. Draw a dragram of the STOCK-TRANSACTION record. 

Make the same kind of dtagram that you have seen in the preceding 
frames. Use scratch paper. WNeatness doesn't count. 





02 04 


03 
STOCK- STOCK-NUMBER DISTRIBUTION- 
TRANSACTION CENTER 
CATALOG-NUMBER | See | 


| ACCOUNT-NUMBER | 
oe 
| TRANSACTION-CODE | 


QUANTITY 
UNIT -VALUE 





Turn to the first page of the case study at the back of the 
reference handbook. There you wtll find another kind of dtagram 
that its sometimes used to show the structure of a record. The 
horizontal format of the diagram ts awkward in that we are 
forced to break off several times, but the sequence of ttems 
within the record ts easy to see, as ts the subdivitston of ttems 
into smaller tteme. 


Although the levels of ttems are harder to see, some programmers 
prefer this sort of dtagram because it corresponds more closely 
to the way the record would actually appear on tape or disk. 

On the next page in this textbook, the BILLING-RECORD has been 
diagrammed using the vertteal format you have been taught. 
Compare the two kinds of dtagrams. 


Also, examine the record desertptton of the BILLING-RECORD in the 
Data division of the ease study program. It should be easy for 
you to pick out the ttem desertption entry for each of the items 
within the record structure. Simply keep in mind that every ttem 
desertptton entry begins with a level number. 
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LEVEL—> 01 03 04 
BILLING-RECORD ACCOUNT- TYPE-OF-ACCOUNT 
IDENTIFICATION 


ACCOUNT-NUMBER 


STORE-NUMBER 


FILE-NUMBER 





BILLING-CYCLE 


CUSTOMER-NAME 


STREET-ADDRESS 


CITY-STATE 





RATING-CODE 


PURCHASE-LIMIT 


CREDIT-STATUS 


ACCOUNT-HISTORY 


LAST-YEAR 


THIS-YEAR-TO- 
DATE 


LAST-MONTH 


THIS-MONTH 


YEAR-OPENED 


YEAR-LAST-ACTIVE 


HIGHEST-BALANCE 





MONTHS-ACTIVE 


MONTHS-OVER- 90 


TOTAL-PURCHASES 


TOTAL-RETURNS 


MONTHS -ACTIVE 


MONTHS-OVER-90 


TOTAL-PURCHASES 


TOTAL- RETURNS 





NUMBER ~OF ~ 
TRANSACTIONS 


BALANCE-FORWARD 


BILLING-DATE 


NUMBER-OF - 
TRANSACTIONS 


CURRENT-BALANCE 
PURCHASES NUMBER 
AMOUNT 
PAYMENTS NUMBER 
AMOUNT 
CREDITS NUMBER 
AMOUNT 


RETURNS NUMBER 


A 


AMOUNT 


aol 
nal 
call 
aad 


OVERDUE - 
BALANCES 


COLLECTION- 
HISTORY 


30-DAY 


: 


60- DAY 





90-DAY 


I 


120 -DAY 





LAST-PAYMENT DATE 


1 


AMOUNT 


a a ee ee 


di 





DUNNING - CODE 


NI 
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LESSON 7 


This ltesson looks at ttem description entries in detail. Some 
ttem desertption entries are quite simple, consisting only of a 
Level number and a programmer-supplied name. Others contain one 
or more clauses, tn additton to a level number and a name. We 
will explore each clause tn some depth. 


To keep you from betng swamped by a great many facts, the 
reading asstgnment has been chopped up tnto a number of little 
pteces. You will first read about the level number and name. 
Then, tn succeeding reading asstgnments, you will study the 
tmportant clauses one at a time. 


Reading assignment: ITEM DESCRIPTION ENTRIES 
Level number 
Name or FILLER 


(Do not go on to the USAGE clause yet.) 


Where would you look for the level number in an item description 
entry? 


At the beginning; a level number is always the first element of 
the entry. 


What level number signifies that the item is an independent item? 


ee0e 
77 


Which level number is associated with an entry that is not, 
strictly speaking, an item description? What type of entry is it? 


88; condition~name entry 


Condttton names wtll be diseussed in a later lesson. 


Where would you look for the name of an item? 


Just after the level number. 
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is 


is — a name. 


The word FILLER 


is not 


The word FILLER is most often used to indicate that a portion of 
a record contains no information. For instance, suppose that we 
are processing a file of punched cards, and that one of the card 
records contains only the current date plus an identifying code. 
The record description of the date card might look like this: 





This record description indicates that a card code is the first 
character of the record, with the current date in the next six 
positions. Even though there is no more data, it is necessary to 
show that the record is 80 positions long; in order to "fill out" 
the record, the programmer has defined 73 additional positions 
and has called them . 


FILLER 
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Let's take a slightly different case. Suppose we are processing 
a file of magnetic tape records: Each record contains 200 
characters of data. The processing consists merely of splitting 
the file into two smaller files. The splitting is to be done on 
the basis of the control number in the first 12 positions of each 
record. If the control number falls within certain limits, the 
record is to be moved to one output area; otherwise, the record 
is to be moved to a different output area. 


Examine the record description below and decide whether the word 
FILLER has been used properly in this case. 





The use of the word FILLER in this record description is 


right, because there is no need for a procedure to refer 
separately to the data in the last 188 positions of 
the record. 

wrong, because the word FILLER can only be used for blank 
positions, never for positions that contain data 
characters. 

wrong, because there is no name by which a procedure can 
move all 200 characters of the record to an output area. 


right, because there is no need for a procedure to refer 
separately to the data in the last 188 positions of the record. 


The control number ts the only item within the record that wtll 
be examtned separately by the program. The only other processing 
requtred ts to move the entire record to an output area, and for 
that purpose a procedure wtll use the name COMMODITY-RECORD. 
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I think tt may be useful to pursue this "file-splitting"” problem, 
to explore other aspects of tts solution, and especially to see 
what kinds of ttem description entries are involved. 


Suppose that the COMMODITY-RECORD ts to be written in files 
called PLANT-1-PRODUCTS-FILE and PLANT-2-PRODUCTS-FILE. The 
whole record ts moved to one file or the other with no changes 
being made to any of the ttems in the record. Here is what the 
file desertption entry and the record description might look like 
for one of these fileae: 


tloickd cal ROP shee RD: 
“sei nelcons| nl Srl 


¥ ; § i 
g g 

: 5 
2 : 
3 § : é 
: A ; 
; g ‘ j mu INIT me — IP 
= 3 
¢ q : Z 

é 3 : 

po 





The record description consists of a single item description 
entry that defines a storage area large enough to hold 200 
characters. The PLANT-1-PRODUCTS record is not subdivided at all; 
in other words, here is an example of a record that is treated as 
an item. 


elementary 


For the PLANT-2-PRODUCTS-FILE, we could have a file descriptton 
entry and a record desertption almost exactly like the one shown 
above. The record for that ftle could be eatled PLANT-~2-PRODUCTS. 


You can visualize statements in the Procedure dtvision of this 
program, saying MOVE COMMODITY-RECORD TO PLANT-1-PRODUCTS or MOVE 
COMMODITY-RECORD TO PLANT-2-PRODUCTS depending on the control 
number. 


Suppose that records whose control numbers range from 
309463552078 through 790084659302 are to be written in the first 
fite, and all other records in the second file. These numbers 
are a little unwieldy, and the people tin our ftrm don't go around 
with them on the tipe of their tongues; itt would mean more if we 
were to say that the ftrst number is the control number for 
wheelbarrows, and that the second is the control number for 
pteckup trucks. 
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To sum tt up, we would ltke to be able to write the following 
entry tn the Procedure divtston: 





OTHEIRW ISIE ,| MOVIE! [cioM 
Lit | [elanit-i2\-lpir 
CT Welle! lel lainir! PR 


The entry uses the name WHEELBARROW tn place of 809463552078, 
and PICKUP-TRUCK in place of 790084659302. In order to use 
these names, they must be defined; the required ttem descrtptton 
entries would look like this: 


BAIRIRIow,| | iPit{c'tlulrle! [ol({1 (2) 
ALUE, JOS SS3SS2078 
P=TRUCK c 
Malle! ['|z\/9/0 piel 












From their level numbers, you can identify these entries as 
descriptions of items. 


eee 
independent 


These entries actually cause the values to be stored as constants. 
The procedural entry at the top of the page causes the control 
number of a record to be compared with the constant values. 

We wtll have much more to say about procedural entries tater 
tn this book. 
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yey During our brtef look at the hypothetical "ftle-splitting"” 
problem, we have seen several item description entries. We wrll 
carry this just one more step further, by combining all of the 
entries tnto a dtviston, as they would appear tin a program, 
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Before you proceed to the next frame, take some time to look 
through the above dtvtston. Be sure that you can dtetingutsh 
file description entries from item descrtptton entries. Be able 
to tdentify where each entry begins and ends. Recognize that the 
two secttons of the dtvitston serve different purposes. 
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Now we will dtseuss the clauses that are found in ttem 

descrtptton entries, beginning with the USAGE clause. We will 
coneentrate on USAGE before going on to clauses such as PICTURE 
and VALUE, whteh you have seen tn several ttem descrtptton entries. 
Although the USAGE clause has not appeared in the entries that 

you have seen, you will dtscover that every ttem has a 

parttcular usage -- even when the clause ts omitted. 


The reading asstgnment contains a number of spectaltzed terms 
with which you are expected to be famtltar: btts, bytes, 
floating-point, packed decimal, binary, hexadecimal, ete. Don't 
get the tmpresston that we are suddenly changing the rules of 
the game, and maktng COBOL "machtne-ortented"; we have simply 
eome to the potnt where the programmer must spectfy precisely 
how the data appears. Also, don't be concerned tf you can't 
remember the exact defintttons of these terms; as long as you 
have a general, idea of thetr meaning, you wtll get along fine. 


Reading assignment: ITEM DESCRIPTION ENTRIES (continued) 
USAGE clause 
What the usage words indicate 


(Do not go on to the PICTURE clause yet.) 


must appear ; | 
The reserved word USAGE peo nae oeuel in a USAGE clause. 


need not appear 
Since the word USAGE may be missing, you must look for one of 


the five reserved words that specify the usage of the item. 
Those five words are ° 


DISPLAY, COMPUTATIONAL, COMPUTATIONAL~-1, COMPUTATIONAL-2, and 
COMPUTATIONAL=~3 


Which one of the five usage words may be omitted? 


DISPLAY 
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Match the list of terms below. (Two or more of the terms on 
the right may apply to a usage word.) 


COMPUTATIONAL~-1 internal decimal 
COMPUTATIONAL-2 external decimal 
DISPLAY packed decimal 
COMPUTATIONAL=3 binary-coded decimal 
COMPUTATIONAL binary 

floating-point 

EBCDIC 

BCD 

eee 


COMPUTATIONAL-1 and COMPUTATIONAL<-2 = floating-point 

DISPLAY = external decimal, binary-coded decimal, EBCDIC, BCD 
COMPUTATIONAL~-3 = internal decimal, packed decimal 
COMPUTATIONAL = binary 


The baste idea should be clear to you: In System/360 COBOL, 

we ean process data in ftve different formats. Thus, we can take 
advantage of the flexibility of data representatton that is 
built into the System/360. It ts not our purpose in thts course, 
though, to discuss the reasons for having different data codes, 
nor to explatn which codes are best for which purposes -- those 
are "system design" considerations, not COBOL considerations. 


The question that we want to tackle ts, how can you figure out 
what the ueage of an ttem ts by reading the ttem desecrtpttion 
entry? Sometimes the answer is simple; for example, tf the entry 
says COMPUTATIONAL-38, there ts no doubt at all -- the data te in 
packed decimal. But what if there tse no usage word in the entry, 
as tn the entry below? What ts the data code tn that case? 

We will explore thte next. 





URE 





| Isiolile]yIisio!.| TI 


There are two key facts to keep in mind. The first is that the 
usage specified for a group item 


applies to the first item in the group, but not to the rest 


has no bearing on the usage of the items in the group 
applies to all of the items in the group 


applies to all of the items in the group 
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Tel | torlolull-trlofrlalut [1 | | lpliiclrluleel Islollefy'vislol.| | TT TTT 


The second fact is that when no usage at all is specified for an 
elementary item or for a group it is part of, 


the usage can be any one of the five possibilities 


|e item has no usage 
the usage is assumed to be DISPLAY 


the usage is assumed to be DISPLAY 


So, if no usage is specified for an elementary item, the first 
thing to do is to see if usage has been specified for a group 

item that this item is part of. What is the usage of AMOUNT- 

PAID in the illustration below? 


{Life PlayMelnir].| IclomelulrlatrilolwlakUslT TTT TT TTT TTT 
tit) tt lols! | falMolulnit-olulel,| leiiicirlulre! |siollel'visio}.| | | | 
| tt | fois! | falmoluinit-plalijo,| iiticiriurel |sisi(felyivolal.| | | 


COMPUTATIONAL-3, because that is the usage of the group item 
that AMOUNT-PAID is part of; AMOUNT-DUE has the same usage. 


Examine the item description entry below, and then select the 
most accurate statement regarding the usage of the item. 





Since no usage has been specified for this item, it must 
be DISPLAY. 

To determine its usage, you must see the entry for the 
group item it is part of. 

This item has whatever usage is specified for the record 
it is part of. 

There is no way of determining its usage without a large 
crystal ball. 


Since no usage has been specified for this item, it must be 
DISPLAY. 


The level number informs you that this ts an tndependent ttem, 
and therefore not part of a group ttem. What we have here, 
then, ts a self-contained ttem desertptton entry; there ts 
absolutely no potnt in looking at the descriptions of any other 
ttems to find out the usage of an tndependent item. 
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usages. No usage is specified for the group item, nor for most 


of the items within the group, yet one of the items within the 
group is COMPUTATIONAL. 


There is really no conflict. It is permissible for items within 
a group to have varying usages. Avoid the misimpression that the 
usage of a group item must be DISPLAY unless otherwise specified; 
in fact, the usage of a group item is the same as the combined 
usages of the elementary items it contains. Thus, the usage of 
STOCK-TRANSFER in the example below is 


DISPLAY, since that is the only specified usage 


COMPUTATIONAL, since that is the only specified usage 
part DISPLAY and part COMPUTATIONAL 


Ol1| | ISTIOCKI-TRIAINSFIE'R.! | | , 
"ppet sore -wvmes one (7, 

21 Ton | || [pliicTiluRe 
nis Of Siu kf ST RE reste 
y PLL etodelotriatr fobdalcl tT 









part DISPLAY and part COMPUTATIONAL 


There would be a conflict only tf one usage were specified for 
the group ttem, and a different usage were specified for the 
elementary items within the group -- for example, tf the word 


DISPLAY had actually been wrttten tn the level Ol entry above, 


Such a confltet, tnetdentally, would be dtagnosed as a programmer 


error by the COBOL comptler. 
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When you are trying to figure out the usage of an elementary 

item whose description does not contain a USAGE clause, you first 
look for a USAGE clause in the description of a group item that 
contains the elementary item. If you don't find a USAGE clause 
in those item description entries, you can conclude that the 
usage is DISPLAY. 


It will be useful to keep in mind what you have already learned 
about the structure of records, in particular the idea that items 
can be subdivided several times. Or, from another point of view, 
that an item can be part of several group items. In the example 
below (which you may recall seeing before), MONTH is part of 
DATE, which is part of PURCHASE, which is part of TRANSACTION, 
which is part of PURCHASING. In other words, the elementary item 
MONTH is part of four group items. 





| 
| 
D4 


nf ete fs 





There is no USAGE clause in the item description entry for MONTH, 
so we must look for a USAGE clause in the description entries for 
all of the group items of which MONTH is a part. Since we find 
no USAGE clause in any of these entries, we know that the usage 
Of MONTH must be ° 


DISPLAY 
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Next, the PICTURE elause. You have seen PICTURE clauses in 

every record description, though not in every ttem description 
entry. PICTURE clauses are easter to identify than USAGE 
clauses, since they always contain the reserved word PICTURE. 
Also, PICTURE clauses cannot optionally be omitted, as USAGE 
elausee sometimes can; the rules are cut and dried -- there must 
be a PICTURE clause actually written in certain cases, and in all 
other cases there must not be a PICTURE clause. 


Learn which item description entries must contain pictures, and 
what you can tell about an item from its picture. Spend a little 
extra time with the six common picture characters that are 
explained in the reference handbook. Also note -=- but don't try 
to memorize ~- the relationship of picture and usage. 


Reading assignment: ITEM DESCRIPTION ENTRIES (continued) 
PICTURE clause 
How to identify an item from its picture 
What some common picture characters mean 
How picture and usage are related 


(Do not read about the VALUE eclause yet.) 


eee 
always 
Group items sometimes} have pictures. 
never 
eee 


never 


Pictures are required in the item description entries of 


all elementary items 

all elementary items except those that are only one 
character long 

all elementary items except internal floating-point items 


all elementary items except internal floating-point items 
(that is, all except COMPUTATIONAL-1 and COMPUTATIONAL-2 items) 
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From a picture, you can tell what category an item falls into 
(alphanumeric, alphabetic, numeric, etc.), how many characters 
the item contains, and what kinds of characters they are. 


From the picture in this entry, determine the category of the 
item, as well as the number and type of characters. 


TOIT Tost! [sti Pleliiel—lrloirel | [ell PLL 





alphanumeric; 4 characters; may be letters, digits, special 
characters, or spaces 


The usage of SHIPPING-ROUTE (see entry in previous frame) 


can be determined only by looking at the entries for 
the group items that contain this item 

is most likely to be COMPUTATIONAL because shipping 
routes are generally numbers 

must be DISPLAY because alphanumeric items can only 
have DISPLAY usage 

must be COMPUTATIONAL<-3 (packed decimal) because the 
picture characters are packed together 


must be DISPLAY because alphanumeric items can only have 
DISPLAY usage 


Translated from COBOLese, this means: the only data code in 
whieh alphanumerte characters can be stored in the System/360 

te BCD (or tf you prefer, EBCDIC or external decimal). 

All other ways of representing data tin System/360 (binary, packed 
dectmal, and internal floating-point) can be used only to store 
numerte data. | 


The fact that SHIPPING-ROUTE is alphanumeric means that the 
item may contain 

{a number, such as 1234] 

{letters, such as QWTG] 

{a combination of characters, such as EC25] 


®o@e 


a number, such as 1234 OR letters, such as QWTG OR a combination 
of characters, such as EC25 
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catch-all eategory, and that the data stored itn alphanumeric 
ttems may be numeric, alphabette, or mixed. This fact sometimes 
Leads beginning programmers to jump to the concluston that they 
can define all data ittems as alphanumeric. Why should they 
bother with As and 98 and all those other symbols, when Xs ean 
stand for any characters imaginable? 


Briefly, the answer ts that an item's picture affects the way the 
ttem can be processed. For instance, an ttem can be tnvolved in 
an artthmetie operation only tf tt te a numeric item. Also, only 
numerte data can be moved into a report ttem; that tis, only 
numerte data can be edtted (punctuated). Similarly, data eannot 
be moved from an alphanumerte ttem into a numeric ttem. All of 
these examples show how tmportant tt ts for the ptecture to be an 
accurate desertption of a data item; in partteular, how important 
tt ts to distingutsh between "any old characters" (represented 

by Xs) and "digits" (represented by 9s). 


Rules of the sort that have just been mentioned are discussed in 
later books of thts sertes. In this book, we are concerned with 
what ptetures look ltke and what they mean, not wtth the whys and 
wherefores of composing pictures. 


Which if these might be the picture of a numeric item: 
[99,999.99] [99V99] [9(6)}] [99099099] [+9999] [S9(8)]}. 
ee0@ 


99V99 OR 9(6) OR S9(8) (All the rest are pictures of report 
items. ) 


If an item's picture is 9999V999, how many digits does the item 
contain? How many decimal places? 


ee0e 
seven digits; three decimal places 
The actual value of the number in storage might be 1234567. 
The ttem in storage does not contain an actual dectmal point 


character, but because of the V in tts pteture, that value would 
be treated as tf tt were 1234. 567. 
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what value would this number be treated if the item's picture 
were: 


Le 9 (4) 
2. P(4)9 (4) 
36 999V9 
4. 9999PPV 
5. V9 (4) 
eee 
L. 3975 (No assumed decimal point or assumed zeros are 


indicated, so the value is treated as a whole number; the 
result is the same as if the picture were 9999V). 

2. -00003975 (This picture might also have been VP(4)9(4), 
but the V is not necessary since its presence is implied 
by the Ps. The Ps say, in effect, “the assumed decimal 
point is located four positions in front of the first 
actual digit"; thus, there are four assumed zeros. 

3% 397.5 

4. 397500 (This picture might also have been written as 
9999PP, without the V.) 

5. © 3975 


Although group items do not have pictures, you can figure out 
what a group item looks like by examining the pictures of the 
elementary items that make it up. From the entries below, you 


can determine that ACCOUNT-NUMBER is a -~digit item made 
up of STORE-NUMBER, which is a ~digit item, and 
FILE-NUMBER, which is a _edigit item. 
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that will be stored in BALANCE is 


By 












BlaLalniclel,| Piictrurel Isillay volo). TT TTT] 
(LTT clomelutriarfifoinalel.| [1 





6 (Each 9 represents a digit; neither S nor V represents a 
character in storage. ) 





The item illustrated in the previous frame has COMPUTATIONAL 
usage; therefore, the data code in which the digits will be 
stored is binary. Instead of merely saying that BALANCE contains 
six digits, it would be more accurate to say that BALANCE 
contains 


six binary digits 
the binary equivalent of six decimal digits ‘ 
six digits in binary-coded decimal (BCD) format 
eee 


the binary equivalent of six decimal digits 


When usage te COMPUTATIONAL, the data is stored in "true binary" 


form, not in binary-coded dectmal (BCD) -- which, after all, te 
what we call DISPLAY usage in COBOL. It takes far more than six 
binary digits -- tn faet, tt takes twenty binary digits -- to store 


the equivalent of stx decimal digite. 


For the most part, COBOL programmers are not concerned wtth data 
codes, or with bits and bytes in storage. Instead they "think 
decimal" -- even when they are dealing with packed decimal or 
binary data tteme -- because the 98 in a picture represent 
decimal digits. 
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We have epent a generous amount of ttme studying the USAGE and 
PICTURE clauses. The remaining elauses, VALUE, OCCURS, and 
REDEFINES probably deserve equal time, but tt would take us a 
little afteld -- into toptes such as data tables -- tf we were 
to explore them thoroughly; therefore, we will limit ourselves 
to a brief look at the final three clauses. 


Your objective ts to learn how each clause appears, and what tt 
means; not to learn the applteations for whitch a programmer would 
use tt ~- except tn the most general sense. 


Reading assignment: ITEM DESCRIPTION ENTRIES (continued) 
VALUE clause 
OCCURS clause 
REDEFINES clause 


One use of the VALUE clause ts in level 88 (eondttton-name) 
entries. We wtll skip over this use for the time being, until a 
later lesson in thie book. 


Another use of the VALUE clause is to assign initial values to 
constants or work areas in storage. Entries that use the VALUE 
clause in this way are not allowed in the File section; you 
would look for them in the __ section of the Data division. 


ee0@ 
Working-Storage 


This ts the reason behind COBOL's ban on VALUE elauses for ttems 
tn the File sectton: Iteme described in the File seetton 
constitute tnput or output records. The values of such items are 
not expected to be constant; they will vary with each record that 
te processed. For instance, each time an input record ts read, 

a value enters each of the ttems in the record. There ts there- 
fore no good reason to assign inittal values to those ttems; to 
do that would only mislead some programmers tnto thinking that 
the tnittal values would remain constant. 


In a VALUE clause, the word VALUE (or VALUE IS) is followed 
by . 


a literal 
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Even though both examples of VALUE clauses in the reference 
handbook show numbers as literals, any valid literal may appear 
in a VALUE clause. The example below uses letters and spaces 
for the literal value. 


As you might have expected, the literal in the VALUE clause must 
be consistent with the picture of the item. In the example above, 
the picture tells us this is an alphabetic item containing 15 
characters; hence, the literal must be non-numeric, and must 
contain no more than 15 letters and/or spaces. 


If an item happened to be COMPUTATIONAL, and its picture was 
S9(7)V99, you can guess that a literal would have to be 
used in the VALUE clause. 


numeric 


Another acceptable format of the VALUE clause makes use of 
reserved words such as ZERO and SPACE. Here is an example: 





Earlier, you learned that ZERO is a 


literal constant 
reserved constant 
numeric constant 
figurative constant 


figurative constant 


In an OCCURS clause, the word OCCURS is followed by a 
literal. 


numeric (more specifically, the numeric literal must be an 
unsigned whole number) 


98 





System/360 COBOL COBOL Program Fundamentals 


285 


(3/66) 


The OCCURS clause specifies how many times an item appears, in 
sequence, in storage. The entry below describes a situation in 
which an item appears in storage 12 times in a row. That is, 
there are 12 items, each one named MONTH, and each one containing 
(how many?) _ letters and/or spaces. 





When an item's name is followed by the word REDEFINES, an area of 
storage is not reserved for the item; rather, a second name is 
assigned to a previously defined item. 


Examine these entries, and answer the questions below. 





1. For which item will an area of storage be reserved? 

2 For which item will a new area of storage not be reserved? 

36 By what two names will the originally reserved area of 
storage be known? 


®2@e@ 


Ls An area of storage will be reserved for PURCHASE. 

25 A new area of storage will not be reserved for REFUND. 

3 The area of storage originally reserved for PURCHASE will 
be known both as PURCHASE and as REFUND. 


Thts ts an example of an item that has a dual purpose tina record. 
Somettmes the ttem contatns the "purchase" amount, and sometimes 
the "refund" amount. We would suppose that a code somewhere in 
the record indteates whether the transactton ts a purchase ora 
refund; based on that code, the program procedures would do 
something etther wtth PURCHASE or with REFUND. Note that, tn 
thts case, tt te just a matter of having two names for an ttem, 

so the approprtate name can be used in procedures. 


99 








System/360 COBOL COBOL Program Fundamentals 


286 | 


287 


288 | 


(3/66) 


LESSON 8 


At tast we have arrived at the final diviston, the Procedure 
dtvtston. To some people the Procedure dtvtston represents 

"the program", for tt econststs of procedures which the computer 

ts to follow in processing the data. The entrtes tn this division 
are very stmilar to English, so they wtll be easter for you to 
comprehend at once than some of the Data dtvtston entrtes were; 
also, there ts very little tn the way of spectal COBOL terminology, 
as compared with the multitude of special terms that popped up 

tn your study of the Data dtivtston. 


To be sure, there are a few such spectal terms, and the first one 
that you wtll come across tis "proceedure". In this reading 
asstgnment, you wtll examtne a sample Procedure dtvtston, and 
then you wtll learn exactly what we mean when we use the word 
"orvocedure" tin talking about COBOL. At the same time, you wtll 
learn what we mean tn COBOL by "sentences" and "statements". 


Reading assignment: PROCEDURE DIVISION ENTRIES 
Sample Procedure division 
PROCEDURES 


The six header entries that appear in the sample Procedure division 
in the reference handbook are - (Refer to the handbook, you 
were not expected to remember this, of course.) 


eee 


PROCEDURE DIVISION. 
BEGINNING~-OF-JOB, 
DETAIL~PROCESSING. 
READ=NEXT=-CARD. 
TOTAL-ROUTINE. 
END-OF-JOB. 


You will recall that the structural units of COBOL programs are 
divisions, sections, paragraphs, and entries. 


The first of the six header entries you have just looked at is 
a header entry. The other five are header entries. 


division; paragraph 
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sentence 
procedure). 
statement 


procedure 


ytee In addition to paragraphs, the word "procedure" applies to 
in the Procedure division. 


sections 


BIRR A "sentence" is any Procedure division entry that is not a 


entry. 
eee 
header 
wave Like all entries, a sentence must be terminated by a ° 
eee 
period 
yeKE A procedure must contain 
one sentence, or less 
one or more sentences . 
more than one sentence 
ee0e 


one or more sentences 


Yara Since a procedure might contain just one sentence, the shortest 


1 
imaginable procedure would contain | entries. 
3 


2 (a header entry in addition to a sentence) 
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The entry below calls for three actions: READ... CLOSE... and 
GO TO... The COBOL term used for a specification of action, such 
as READ OLD-MASTER, is 


phrase 
clause 
statement 
sentence 


TT stellt lol bl wlashriest alr! leIol.| iculolsiel ||| t iy 
|| [[ Jol lolfwalsirleinl,| Iciol Irlol_iF/ilviiisbl-Wwew-Masirerl. 










statement 


The complete procedure entry illustrated in the preceding frame 
is called a __ ° 


sentence 


Each statement begine with a procedural word, like ADD, MOVE, ete. 
Most procedural words are verbs, though one of the most important 
words ~- IF -- is technically a econjunetion. The reference hand- 
book lists the seventeen most commonly used procedural words in 
alphabetteal order, but for study purposes we will look at just a 
few words at a time. To begin with, you will read about four 
tmput-output verbs. Your objective ts to learn enough about each 
verb to be able to read and comprehend statements using that verb. 
Keep tn mind that you are not expected to be able to write 
original statémentse yet, so don't try to memorize the format 
rules. 


Reading assignment: PROCEDURAL WORDS 
OPEN 
READ 
WRITE 
CLOSE 


(Be sure to read the summaries of these 
verbs in thts sequence.) 
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BX73 Before a record may be written in a file, it is necessary to 


READ 
OPEN the file. 


CLOSE 


OPEN 


PII] A CLOSE statement is required after processing is completed for 
{input files] [output files]. 


input files AND output files 
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Eft] The flowchart below shows the overall logic of processing 
sequential files. In this example, there is one input file and 
one output file. For simplicity's sake, an output record is 
written for every input record. 


READ 
THE INPUT 
FILE 


AT END 
OF THE INPUT \ YES 
FILE 





NO 
PROCESS. INPUT 
MOVE DATA INTO STOP RUN 
OUTPUT RECORD 


WRITE 
AN OUTPUT 
RECORD 


This processing logic applies to sequential files that are stored 
on [magnetic tape] [magnetic disk] f{punched cards] [printed forms]. 


ALL of these storage media 


Printed forms could serve only for the output file, of course, 
white the other medta could serve for both tnput and output. 
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The flowchart you just looked at contains a decision block 
testing whether the end of the input file has been reached. 
This AT END test is a clause of the 


READ 


ee statc7™ent. 


CLOSE 


READ 


Which input-output statement is generally acted on at the 
beginning of a run? At the end of a run? 


Beginning: OPEN; end: CLOSE 


OPEN and CLOSE statements are acted on once for each ope HF 
whereas READ and WRITE statements are acted on once 


file 


for each Sarno 


file; record 


Turn to the Procedure dtviston of the case study program tn the 
reference handbook. The next six frames all refer to the case 
study program, 


What is the name of the procedure in which the files are opened? 


START=PROCESSING 
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What is the name of the input file? What is the name of the 
output file? 


ee0@ 
BILLING~-FILE; CUSTOMER-BILL-FILE 


When these ftles were named tn the Environment dtviston and 
desertbed tn the Data division, no tndteatton was gtven as to 
whieh file would be used for input, and whtech for output. The 
OPEN statement ts where this ts specitfted. Thts arrangement 
permite the same Environment and Data dtivtston entries to be used 
tn other programs, where for instance, the input file of thte 
program might be the output file. 


Find the READ statement. What procedure is the computer told to 
go to when the end of the input file is reached? 


END-OF=-RUN 


Find the procedure named END-OF-RUN. What does the first 
sentence of that procedure say? 


CLOSE BILLING~FILE, CUSTOMER-BILL-FILE. 


Both the OPEN and CLOSE statement gives the names of two files; 


however, the OPEN statement tells which file is and which 
is _, While the CLOSE statement does not. 
eee 


INPUT, OUTPUT 


How many WRITE statements are there? 


four 
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Now let's go back to read about a couple of other procedural 
words that deal with tnput and output. Determine the difference 
between these new worde and READ and WRITE. 


Reading assignment: PROCEDURAL WORDS 


ACCEPT 
DISPLAY 
ee@ 
ACCEPT and DISPLAY are used for reading and writing , not 
for ‘ 
eee 


low-volume data; (not) files of data 


What is the maximum number of characters that can be read by an 
ACCEPT statement, and written by a DISPLAY statement? 


maximum for ACCEPT: 80; maximum for DISPLAY: 120 


ACCEPT and DISPLAY statements are used to receive information 
typed in on the console typewriter keyboard, and to type out 
information on the typewriter. For this use, the number of 
characters that can be read or written cannot exceed . 


72 


Now that you have seen the verbs that fall into the "tnput-output"” 
category, let's look at the "data movement" category. This 
eategory has just one basic verb: MOVE. You will find that thie 
verb can do three matin things, though not necessarily all three 

at one time. 


Reading assignment: PROCEDURAL WORDS 
MOVE 
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A MOVE statement can ; , and data. 


move, convert, edit 


Most people find a MOVE statement easy to understand, but let's 
take a moment for you to double-check your understanding of it. 
In the sentence below, what would you say is the name of the 
"source field" -- the item from which data is to be moved? 
What is the name of the "receiving field" -- the item to which 
the data is to be moved? 





CATALOG-NUMBER is the source field; CONTROL-ITEM is the 
receiving field. 


When the COBOL compiler generates machine language instructions 
for a MOVE statement, it refers to the descriptions of the items 
to be moved as given in the Data division. The item descriptions 
will indicate to the compiler how many characters are to be 
moved, what the usage of each item is, etc. 


In reference to the MOVE sentence printed in the previous frame, 
guppose that CATALOG-NUMBER is a binary item (that is, its USAGE 
IS COMPUTATIONAL). And suppose that the usage of CONTROL-ITEM 
is DISPLAY. In this case, the compiler will generate the 
instructions required not only to move CATALOG-NUMBER to 
CONTROL-ITEM, but also to convert the data from (which item?) 

to external decimal (BCD) code. 


ece0e 
CATALOG-NUMBER 
A MOVE statement would cause data to be edited if the of 
the receiving item identified it as a report item. 
ee0e 
picture 
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"Aritthmetic" te a larger category: five verbs. An interesting 
thing about thts group of verbs ts that one of them can replace 
the other four. It would be possible, then, to use just one 
aritthmette verb for all arithmetic statements; however, you wtll 
have a took at the other four verbs as well. 


Reading assignment: PROCEDURAL WORDS 
COMPUTE 
ADD 
SUBTRACT 
MULTIPLY 
DIVIDE 


Which verb can be used for all arithmetic operations? 


COMPUTE 


Whereas other statements use words like ADD, SUBTRACT, etc., to 
specify arithmetic operations, COMPUTE statements use _ to 
specify operations. 


arithmetic symbols 


Notice that a COMPUTE statement not only computes a value, but 
also edits that value if the result is to be put into a report 
item. In the example below, into which item will be result be 
put? How could you tell if it is a report item? 





The result will be put into RATE (the item named after the verb). 
To find out if RATE is a report item, you would have to know 
what its picture is. 
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A DIVIDE statement might have been used to do the calculation 
specified in the COMPUTE statement above. In order to obtain an 
edited result, the DIVIDE statement would have to contain a 

clause. 


GIVING 


yew Is this DIVIDE statement equivalent to the COMPUTE statement 
illustrated above? 





No. The correct equivalent would be DIVIDE TIME INTO DISTANCE 
GIVING RATE. 


In the COMPUTE statement, the formula DISTANCE/TIME would be 
read "distance divided by time"; the meanings of artithmetie 
symbols are gtven tn your reference handbook under the topte 
SYMBOLS. 


wim A significant difference between COMPUTE and other verbs is that 
a COMPUTE statement can call for more than one kind of arithmetic 
Operation. Name the operations that are called for in this 
statement. 





multtplteatton dtviston 


COMPUTE CAPACITY = (UTILITY * SPAN) 7 
(RANGE + CONSUMPTION * EFFICIENCY). 


addttion multiplication 
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ADD, SUBTRACT, MULTIPLY, and DIVIDE statements perform only the 
type of arithmetic operation specified by the verb. Furthermore, 
MULTIPLY and DIVIDE statements operate on only two numbers; they 
multiply one number by another, or divide one number into another. 


ADD and SUBTRACT, however, can operate on 


only two numbers 


} ely one number 
more than two numbers 


more than two numbers 


An operation that can be done with a COMPUTE statement, but 
cannot be done by any of the other arithemtic verbs is ° 


exponentiation 


Exponenttatton ts the ratsing of a number to a certain power. 

To be sure, you can square a number (ratse tt to the second 
power) using a MULTIPLY statement -- multtplying the number by 
ttself. But htgher powers would requtre several MULTIPLY 
statements; and tf the exponent varted, MULTIPLY statements would 
be hard to use. : 


Another itmportant category of procedural words is "sequence 
control", These words enable the programmer to control the 
sequence tn whtch other statements or procedures wtll be acted on 
by the computer. There ts IF, whtch permits dtfferent acttons on 
the basis of a test-condttton; GO TO and PERFORM, whtch cause 
branching; and STOP, whtch delays or halts the run. 


You should get a general tdea of the function of IF by reading 
the summary tn the reference handbook; however, we wtll postpone 
our dtscusston of IF unttl the next lesson, when we wtll study it 
in detatl. We wtll dtseuss GO TO, PERFORM, and STOP at this time. 
Make sure that you are able to describe the difference between 

GO TO and PERFORM. And tearn what the two types of STOP state- 
ments are, and how you would tell them apart. 


Reading assignment: PROCEDURAL WORDS 
IF 
GO TO 
PERFORM 
STOP 
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CR 
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statement 
A GO TO statement causes a branch to a sentence ‘é 
procedure 


procedure 


A GO TO statement contains the name of the procedure to which a 
branch is desired. You can see that this name must be the same 
as the name given in the entry of the procedure. 


header 


How does a GO TO differ from a PERFORM? 


A PERFORM causes a branch to a procedure or series of procedures, 
just as a GO TO does. But after the procedure or procedures are 
acted on, PERFORM causes a return branch to the statement after 
the PERFORM statement. 


The flow of control through procedures, and further study of GO 
TO and PERFORM, will be taken up tin the next lesson. 


There are two kinds of STOP statements. One stops the execution 
of the program permanently, the other temporarily. A permanent 
stop is indicated when the verb STOP is followed by ‘ 


the word RUN 


If the stop is temporary, that is, if execution is to be resumed 
after the computer operator takes some corrective steps, the verb 
STOP is followed by | ° 


a literal 
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Here is an example of STOP followed by a literal. What will 
happen to the literal when this stop is executed during the 
running of the object program? 





The literal will be typed out on the console typewriter. 


The literal in the previous example is meant to be a 


(message to the computer] 
[comment in the source program listing] 
(message to the computer operator]. 


message to the computer operator 


The final category of procedural words is "program comments". 
Thts ts another one-word category, and deserves only brief study. 


Reading assignment: PROCEDURAL WORDS 
NOTE 


NOTE entries are used for program documentation only. The 
words written in a NOTE statement are 


[converted into machine language statements] 
{loaded into core storage as constants] 
[printed in the source program listing]. 


printed in the source program listing ONLY 


A NOTE 
has no size limit 
cannot exceed the width of the source program listing form ° 
can be as long as 120 characters, like all non-numeric literals 
ee0@ 
has no size limit 
114 
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342 


LESSON 9 


The brtef summary of the procedural word IF, whtech you read tn 
the prevtous tesson, tndicated tn a general way, that IF causes a 
conditton to be tested, and causes alternate paths of actton to be 
taken, depending on whether the desertptton of the condttton ts 
true or false. In thts lesson, we will first study the vartous 
kinds of conditions that can be tested in IF statements. There 
are five kinds of condtttons (called "test-condtttons" in COBOL 
jargon); you will study two of these now, the other three a 
little later. 


Reading assignment: TEST-CONDITIONS 
Relation test 
Sign test 


(Do not read about the econdttton-name 
test yet.) 


In this IF sentence, pick out the test-condition and the 
statement to be acted on if the test-condition is true. Also, 
identify the test-condition. 





test~condttton (relation test) 






1S LESS THAN MINIMUM 


(COMPUTE DEFICIT =MINIMUM —-NET). 


aetton to be taken tf econdttton tis true 


IF (NET 


EZEy A relation test causes two values to be : 
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compared 
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The reason for comparing the two values in a relation test is to 
determine whether the stated relationship is true or false. In 
the first example below, the stated relationship is true if the 
values of the two data items are exactly equal, and false if 
either value is higher or lower than the other. 





In the next example, the stated relationship is true if 
APPLICANT-AGE is [equal to] [less than] [greater than] 16; and 
false if APPLICANT-AGE is [equal to] [less than] [greater than]16. 





true if EITHER equal to OR less than 16; false ONLY if greater 
than 16 


When we take up "flow of control" later tn this lesson, we will 
Look closely at what happens when the test-condttion ts true or 
false. 


In the sign test, ZERO is considered to be [positive] [negative]. 


NEITHER positive NOR negative 
This means that an item whose value is zero 


can have a sign, but it is ignored 


must not have an operational sign 
has a special + (plus-or-minus) sign 


can have a sign, but it is ignored 
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The reference handbook points out that the sign test is another 
way Of stating a relation test that compares a number with zero. 
What sign test would be equivalent to the relation test below? 





IF TOTAL-~DUE IS POSITIVE, GO TO WRITE-BILL. 


Both the relatton test and the sign test are eastly comprehended. 
Next you wtll learn about three other tests, whose meaning -- 
at least the meantng of two of the three -- ts not always obvtous. 


Reading assignment: TEST-CONDITIONS (continued) 
Condition-name test 
Overflow test 
Class test 


The class test is used to determine whether or not an item is 
or . 








alphabetic, numeric 


A posstble use for class tests ts to check the validity of certain 
data ttems. For example, tt might be destred to determine whether 
an ttem that ts supposed to contain numerte informatton actually 
contatns digits. (Such an item would have a pteture tdenttfytng 
it ae a numerte ttem, but there ts no automatte checking to verify 
that data put into an ttem durtng the running of a program 
corresponds to the ttem's picture.) 


In a condition-name test, the test-condition consists solely 
of a : 


programmer-supplied name 
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ERP The test resembles the condition-name test. 
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overflow 


Since a condition-name test is another way of testing whether a 
data item is equal to a literal, any condition-name test could 
be replaced by a 


relation test 
Sign test 
class test 
overflow test 


relation test 


The reason a programmer might use a condition-name test instead 
of a relation test is to make the program more readable. If he 
has done his job right, the name of the condition will explain 
the meaning of the condition. For instance: 


~ UI ie Aan Rave TTT TT 
|| || Ielol fro! _folPleinit inejs\—lolv—ITlH Dl. 


The condition name, APPLICANT-WILL-TRAVEL, actually represents a 
specific value of a specific item. To find out what value, and 
what item, you would look in the division. 





Data 


A condition name is defined in a level number entry in 
the Data division. 


88 
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Suppose the following entry appeared in the Data division: 


EL 
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ae APPL Iclaniti-wiL iL Cririav 


This entry gives the condition name, and the value represented 
by the condition name, but does not tell the name of the item. 
Where would you look for the item description entry to which the 
88-entry applies? 





Above the 88-entry. Level-88 entries follow immediately after 
the description of the entry to which they apply; there may, 
however, be more than one level-88 entry for an item. 


Here we see the condition-name entry in context. 





Which one of the following relation tests is the equivalent of 
IF APPLICANT-WILL-~TRAVEL...? 






(1) 


Th 


(2) 
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Whenever a programmer wants to test whether the value of a data 
item is equal to a literal, he has the choice of using either a 
relation test or a condition-name test. His decision as to which 
to use would be based in part on the readability of the relation 
test. A relation test such as IF TEST-SCORE = 100... tells just 
as much as IF PERFECT-TEST-SCORE..., so the programmer would 
probably use the relation test. 


On the other hand, if he had a choice of writing 
IF MARITAL-STATUS = 7... or IF DIVORCED..., the programmer would 
certainly write IF DIVORCED... In this instance, then, the 


relation test 
condition-name test 


preferred test is the 


condition-name test 


NO Similar choice exists when it comes to the overflow test. 

The overflow test is the only way of testing whether the 1]12-punch 
has been sensed in the carriage tape. (The punch in channel 12 
of the carriage tape indicates when the last normal printing line 
of the form has been reached, in order to leave a margin of blank 
paper at the bottom of each form.) 


This means that an overflow test will be found in most programs 
where there is printed output. The logic of the IF sentence 
containing the overflow test will nearly always be similar to the 
sample sentence given in the reference handbook, but of course, 
the programmer-supplied names will undoubtedly be different. 


The programmer-supplied name that represents the form-overflow 


condition is defined in an APPLY entry, which will be found in 
the I-O-Control paragraph of the division. 


Environment 
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Our discussion of test-condittions leads naturally to closer study 
of the flow of control through COBOL procedures. After all, the 
reason for having test-conditions ts to permit control to flow 
along alternate procedural paths. 


The COBOL comptler, as you know, wtll cause the COBOL procedural 
statements to be translated tnto actual machine language 
tnetructions. When we talk about flow of control, we are "playing 
computer", so to speak, and acting as though the COBOL statements 
had already been translated and are now betng executed by the 
computer. In order to trace the flow of control, you must know 
such things as where the starting point te, what sequence ts 
normally followed, and what statements cause deviations from 

that sequence. 


Reading assignment: FLOW OF CONTROL 
Starting point 
Sequence 
Branching 


(Don't study the flow of control through 
IF statements yet.) 


"Declarative" procedures are used to alter the usual acttone 
performed by the tnput-output control system. One example of the 
use of declaratives is in the processing of user label records, 
that ts, labels that provide file informatton over-and-above that 
provided by the standard label records. 


In this book, our only concern with declaratives is their effect 
on the place at which execution of a COBOL program begins. What 
is the starting point of program execution when there are 
declaratives? When there are no declaratives? 


When there are declaratives, control starts at the first 
procedure after the declaratives. When there are no declaratives, 
control starts at the first procedure of the Procedure division. 


How can you tell whether a program contains any declarative 
procedures? How can you tell where the declaratives end and the 
regular procedures begin? 


If a program contains declaratives, the line after the division 
header will state: DECLARATIVES. And the line after the last 
declarative procedure will state: END DECLARATIVES. 


12] 


System/360 COBOL COBOL Program Fundamentals 


meee Control normally flows from one statement to the next 


in the order in which they are written in the program 

in alphabetical order according to the first letters of 
the verbs 

in order by verb categories, input-output being done first 


in the order in which they are written in the program 





When control comes to the end of a procedure, it normally 


waits for the next command from the supervisor program 


stops temporarily, until an operator presses the Start key 
goes right on to the next procedure in sequence 


goes right on to the next procedure in sequence 


King The procedural words whitch can change the normal flow of control 
are the familtar quartet of "sequenee control" worde: GO TO, IF, 
PERFORM, and STOP. 


A GO TO statement causes control to branch unconditionally to 
the of a procedure. 


first statement 


“yr After a GO TO has caused control to branch to the beginning of 
a procedure, 


control immediately branches back to the statement after 
the GO TO 

the normal flow of control is resumed 

control flows through that procedure, and then returns 
to the GO TO 


the normal flow of control is resumed 
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KYVA These drawings graphically illustrate the difference between 

GO TO (drawing A) and PERFORM (drawing B). Each drawing consists 
of four boxes that represent procedures. In each case, the flow 
of control begins at procedure P-1; part way through the first 
procedure a sequence control statement is acted on. The flow 
arrows remind us that a branch is caused by [GO TO] [PERFORM]. 





BOTH GO TO AND PERFORM 


EYE In both cases, control flows through procedure P-3, but at that 
point the difference occurs. In drawing A, control then flows 
= , whereas in drawing B, control flows 


e020 
(A) to the next procedure in sequence, P-4 


(B) back to procedure P-1, where it will next act on the 
statement following the PERFORM statement 
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GO TO and PERFORM statements cause control to flow to the 


370 





(3/66) 


beginning of a procedure, so the programmer must think tn terme 

of procedures when using these statements. IF sentences, on the 
other hand, cause control etther to flow through or to jump over 
certain statements. Keep this difference tn mind as you examine 
the logie dtagrams for IF statements, in the reference handbook. 


Reading assignment: FLOW OF CONTROL (continued) 
Flow of control through an IF sentence 
that does not contain ELSE or OTHERWISE 
Flow of control through an IF sentence 
that contains ELSE or OTHERWISE 


The logic diagrams you have just looked at ought to help you in 
determining what processing is accomplished in an IF sentence. 
The first step indicated in both diagrams is that the "data is 
evaluated", to find out whether the description of the data 
condition is true or false. 


Of the five test-conditions that can be used in IF sentences, 
one test-condition does not, strictly speaking, describe a data 
condition. Which one? 


ee0e 
overflow test 


The ltogie dtagrams apply to the overflow test, too, except that 
the words "data ts evaluated" are not appropriate. For that test, 
tt would be more appropriate to say something like "status of 

electronte indicator in printer is tested". However, I am sure 


_we can get by wtth the dtagrams as they stand; and mtght say that 


the "status of an tindteator" constitutes a ptece of information, 
and that itt ts therefore "data" -- in the larger sense of the 
word. 


It is also important to emphasize the difference between a “data 
condition", which is a matter of fact, and a "description of a 
data condition", which might be true or false at any given time. 
It is certainly not possible to tell whether a test-condition, 
such as STOCK-LEVEL IS LESS THAN MINIMUM-BALANCE, is true or 
false merely by looking at the COBOL entry. It is necessary to 
look at the data itself; and if we find that the value of STOCK- 
LEVEL is 355, and that the value of MINIMUM=-BALANCE is 352, we 


can then say that the test-condition is {False} at this time. 


false 
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[KkyZ4 When an IF sentence does not contain ELSE or OTHERWISE, control 


statement. 


sentence if the test-condition is false. 


jumps to the next 


sentence 





The end of a sentence is identified by a 


period 


[EXZ§ It should be clear from the logic diagrams how important the 
distinction between a "Sentence" and a "statement" now becomes. 
Previously, we have dealt with “unconditional” actions, where the 
distinction was not so important. For example, the first sentence 
below calls for exactly the same actions as the two sentences 
below it. 


| Talpiol [Pleivlal ity] [rol lalioluinit/—(o 
— }PMOUN TRUE TO, RAY ACL le! | 
oi EERERERERE SAAUAEBMLAEE | 
hipaa uint—pluje).) | || 
MOWe| laMolINIT!-lpive, [Tio [Plalviajpiuiel.| | |: 


But where the word IF is involved, the exact location of periods 
is vital. Thus, the two sets of entries below do not mean the 
same thing. Can you explain the difference between them? 







uiesi.| | iid i tl. 
Pt ott race. 





PTET 
ELO wt TIO MEMO | 


In the first set of entries, SALES will be added to YEAR-TO-DATE- 
SALES whether or not the value of SALES is less than the value of 
QUOTA. In the second set, SALES will be added to YEAR-TO-DATE- 
SALES only if the value of SALES is less than QUOTA. 
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EYZ§ What is wrong with this reasoning: 
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The two sets of entries below accomplish exactly the same purpose. 
In each one, the EMPLOYEE-PLAN procedure will be performed if the 
value of AGE is less than 65; and RETIREE-PLAN will be performed 
if AGE is equal to or greater than 65. 


TT Tiel Talelel fel Telsl,| TPleinlFiolka [eMeluloviele-ipi fails] [TT TT 
[|| | oTHeElRWii[slel,! [PlEiRIFlolriM [RleriiRieleteilain,.| | tit | || 


TTT tile] Talele| Fe Tels), Tlein|elolei JeMe|Lloviele pL lal] [7 TT 
| | | | PEIRFloRM JRE Riel pilan}.| ||] Tit tT Tit Ty 













In the second set, RETIREE-PLAN will be performed no matter what 
the value of AGE is. 


The program-flowchart excerpts below correspond to the two sets 
of COBOL entries that you studied in the prevtous frame. They 
tllustrate the difference between the two sets of entries. The 
difference ts precisely the same as the difference between the 
two logite diagrams in the reference handbook; you mtght wish to 
compare those general logtce diagrams with these specific 
appltcatton flowcharte. 


AGE < 65 
? 


PERFORM 
EMPLOYEE-PLAN 


PERFORM 
RETIREE - PLAN 






NO(OTHERWISE) 









PERFORM 
EMPLOYEE -PLAN 
PERFORM 
RETIREE - PLAN 
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The flowcharts tin the preceding frame show how a programmer 
thinks about the verb PERFORM. He treats PERFORM as if tt were 

a process done "tn line" wtthin a procedure. Of course, the 
programmer ts well aware -- juat as you are aware -- that PERFORM 
actually causes control to branch off to some other procedure, 
and then causes control to come right back. This linkage to and 
from the other procedure ts completely taken care of by the COBOL 
comptler, which permits the programmer to take a simplifted view 
of things. 


But, when you are analyzing a program that someone else has 
written, to see just what the program does, you must locate the 
procedure that ts performed and examine the processing done in 
that procedure. We are going to do just that next; we will trace 
the flow of eontrol through a portion of the sample Procedure 
dtvitston tn the reference handbook. 


Turn to the sample Procedure division -- the one you looked at 


when you began detailed study of the division, not the case study 
program, Locate the IF sentence in the READ-NEXT-CARD paragraph. 


Thte frame, and the next seven frames, refer to the sample 
Procedure diviston. 


The IF statement states that TOTAL-ROUTINE is to be performed 
IF ° 


NUMBER OF COMMODITY IS NOT EQUAL TO OLD-NUMBER 


TOTAL-ROUTINE is the programmer-supplied name of a ; 


procedure (paragraph) 
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TOTAL-ROUTINE is the next procedure in sequence following 
READ-NEXT=~CARD. 


must follow 
need not follow 


that contains the PERFORM statement. 


A procedure to be performed the procedure 


need not follow 


A ltttle while ago, you studied a drawing that showed a PERFORM 
statement tn procedure P-1. The procedure to be performed did not 
follow P-1; tnatead, tt was procedure P-3, two procedures away. 
And itt would have been perfectly all rtght for a PERFORM 

atatement in procedure P-4 to say, "PERFORM P-1",. 


TOTAL-ROUTINE consists of some MOVE statements and a WRITE 
statement. It does not contain a GO TO statement. How will 
control be returned to the statement following the PERFORM 
statement in the READ-NEXT=-CARD procedure? 


Instructions to cause control to return will be generated by the 
COBOL compiler. 


To what statement will control return after TOTAL-ROUTINE has 
been performed? 


GO TO DETAIL-PROCESSING. 


DETAIL-PROCESSING is the name of a ° 


procedure 
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Thus, immediately after control returns from TOTAL-ROUTINE, it is 
sent off the DETAIL-PROCESSING. This would seem to suggest, why 
not add a last statement to TOTAL-ROUTINE that says, "GO TO 
DETAIL-PROCESSING?" The main reason that this was not done is 
because the TOTAL-ROUTINE is to be performed at another point in 
the program, and at that point, control is not to go to 
DETAIL-—PROCESSING. 


Find the other "PERFORM TOTAL-ROUTINE" statement in the program. 
To what statement will control return following the execution of 
that PERFORM? 


The other "PERFORM TOTAL-ROUTINE" statement is in the END-OF-JOB 
procedure. After it is executed, control will go to the 
statement that reads, "CLOSE PURCHASING-FILE, PURCHASE-REPORT- 
FILE". 


Let's continue to trace the flow of control from the CLOSE 
statement. After the CLOSE statement is executed, control goes 
to a DISPLAY statement, and then to a STOP statement. 


1. Each of these COBOL statements also happens to be a 
sentence. Does this fact alter the flow of control 
in any way? 


2% Exactly what will happen when the DISPLAY statement 
is executed? 


i Where will control go following the execution of the 
STOP statement? | 


lL. No, not in this case; but as you have seen earlier, 
the distinction between statements and sentences is 
crucial when you are dealing with IF sentences. 


25 The words PURCHASE REPORT FINISHED will be typed on the 
console typewriter. 


Ss Control will not go anywhere, as far as this program 
is concerned. STOP RUN means the job is finished. 
(Inetdentally, this does not mean that the computer 
stops running; control ts simply turned over to the 
operating system control program, whitch wtll probably 
load the next program and process the next job.) 
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LESSON 10 


Thie final lesson will give you a chance to find out whether you 
have learned what you were expected to learn from the other 
lessons, which ts to read a COBOL program with a high degree of 
comprehenston. You can think of thts lesson as a "self test", 
tnasmuch as you will be applying what you have prevtously 
learned, rather than learning new tnformatton. 


Although there are no reading assignments tin thts lesson, you 
should feel free to look up tnformatton in the reference handbook 
whenever you need to. We have covered a lot of ground in nine 
lessons, and you were repeatedly urged not to memorize details, 
so tt would hardly be fatr to expect you to rememper any but the 
most tmportant facts! (You may be surprised to find how many of 
the details have "etuck wtth you". Anyway, the answers are what 
count, not whether you have memorized them, or must look them up. 


Most of our work tn this lesson will be done with the case study 
program, Turn to the Procedure divtston of the case study 
program, and locate the third procedure. 


eo 


The third procedure is (rane pancanoas 


LINE~1~PROCEDURE 


The first sentence of that procedure is 


LINE--1-PROCEDURE. 
MOVE SPACES TO BILL-LINE-1.' 


MOVE SPACES TO BILL~-LINE~-1. 


If “LINE-1- PROCEDURE." is not a sentence, what is it? 


It is a paragraph header entry (procedure header entry). 
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ten "MOVE SPACES TO BILL-LINE-1." is the first sentence of its 
procedure. What is the first statement of that procedure? 


The sentence contains just one statement, "MOVE SPACES TO 
BILL-LINE-1". (The sentence is terminated by a pertod, while the 
statement is not; so the pertod ts the only dtfference between 
the first sentence and the first statement, tin this case.) 


am SPACES is one of a few reserved words that are called _e 


figurative constants 


‘ye BILL-LINE-1 is a programmer-supplied name of a data item. 
In which division would you look to find the description of the 
item? 
eee 


Data division 


ke Find the item description entry for BILL“-LINE-1l. The level 
number of that entry tells that BILL-LINE-1 is the name of a 


ee0e@ 
record 


a7e The level-01 entry for BILL-LINE-l, plus the string of level-02 
entries that follow it, together make up a ; 


eee 
record description 
a group item 


che BILL-LINE-1 is a record, and it is also an elementary item 
an independent item 


a group item 
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How many elementary items are there in the BILL-LINE-1 record? 
eee 


thirteen -- Every level-02 item in this record is an elementary 
item. 


There are no USAGE clauses in any of the entries in the 
BILL-LINE-1 record description. Do the items in this record have 
a usage? If so, what is their usage? 


Yes -- all data items have a usage, since "usage" is the COBOL 
term that means the data code in which data will be stored in 
an item. 


The usage of the items in this record is DISPLAY; when no usage 
is specified, it is assumed to be DISPLAY. 
Seven of the items in this record are called FILLER. What is 
"FILLER" ? 

eee 
FILLER is a reserved word that can be used in place of a name 


when the item is not going to contain any information or is not 
going to be processed. 


PICTURE 


PICTURE . 
The picture of the item named CREDITS is a a ee 


$$,SS$.$$. 
ee0e 


$$,$$$.S$ (The final period is not part of the picture; it is 
the period that terminates the entry.) 


The picture identifies CREDITS as a item. 


report (that is, an item used to store edited data) 
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What is the name of the file in which BILL-LINE-l is a record? 


CUSTOMER-BILL-FILE 


What does "FD" stand for? 


eee 
File Description 
The FD entry for CUSTOMER~BILL-FILE contains the following 


clause: "RECORDING MODE F". What does “recording mode" mean? 
What does "F" stand for? 


"Recording mode" is the COBOL term for the format (layout) of 
records. "F" stands for "Fixed length". 


How many different kinds of data records are there in 
CUSTOMER-BILL~FILE? 


four -- BILL-LINE-1, BILL-LINE~2, BILL-LINE-2, and BILL-LINE-4 


Where would you look to find out what device CUSTOMER-BILL-FILE 
is assigned to? 


In the Environment division 


Locate the Environment division. CUSTOMER-BILL-FILE is assigned 
to device number eer 


1403 (the IBM 1403 Printer) 
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The Environment division also indicates that the object program 


the same 


will be compiled and executed on aber avant 


computer models. 


different (Source computer is IBM-360 G50; object computer is 
IBM-360 F30.) 


BILLFILE 


, CUSTBILL 
The name of this COBOL program is BILLING 


not specified 


BILLING (See the Program-Id paragraph of the Identification 
division.) 


first 


eee second\ ...., 
The Data division is the \ipirg /~ division of the program. 


fourth 
eee 


third 


Turn to the Data division once again. Where would you look to 
find the descriptions of independent items? 


In the Working-Storage section 


Locate the Working-Storage section. Of the three items 
described in the section, the [first] [second] [third] is an 
independent item. 


ALL THREE are independent items -- all have level number 77. 


How many characters does the item named SKIP-TO-CARRIAGE- 
CHANNEL~-1 contain? 


one (Its picture is X.) 
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description of the BILL-LINE-4 record. How many characters does 
that record contain? 


133 (40 + 22 + 71) 


Does this mean that each of the other three records in the 
CUSTOMER-BILL-FILE also contains 133 characters? 


Yes, it does -- in this instance. You previously observed that 
the recording mode of the file is F, which means that all of the 
records in the file have the same length. 


Turn to the Procedure division again. Where will the flow of 
control through the procedures of this program begin? 


At the START-PROCESSING procedure (There are no declaratives 
in this program.) 


In a few words, what is the function of the OPEN statement in 
the START-PROCESSING procedure? Also, what does the OPEN 
statement tell you about BILLING-FILE and CUSTOMER-BILL-FILE? 


The OPEN statement makes the input and output files ready for 
reading and writing. It also tells us that BILLING-FILE is the 
input file, and that CUSTOMER-BILL-FILE is the output file, 


Where will control flow when it comes to the end of the 
START-PROCESSING procedure? 


To the next procedure in sequence: READ-AND-CHECK=RECORD 
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How many statements are in the first sentence of the 
READ~AND-CHECK=-RECORD procedure? 


two: READ BILLING-FILE and GO TO END-OF-RUN 
BILLING-FILE is the name of a , and END-OF-RUN is the name 
ofa 3 


file; procedure 


Under what condition will control branch to END-OF-RUN? 


When the end of the file has been reached; that is, when all of 
the data records have been processed. 


(AT END ts a clause of the READ statement, and ts menttoned tn 


the summary of the READ verb, under PROCEDURAL WORDS in the 
reference handbook.) 


What actions are taken when control branches to the END-OF-RUN 
procedure? 


The input and output files are closed, and the run is stopped. 


137 

















a 

















R29-6285-0 








International Business Machines Corporation 





Data Processing Division 
112 East Post Road, White Plains, New York 


